计算出生日期那天是星期几
来源:互联网 发布:ubuntu 移除ppa 编辑:程序博客网 时间:2024/04/28 08:21
Private Sub Command1_Click()
Dimyear As Integer
Dimmonth As Integer
Dimday As Integer
Dimweekofday As Byte
Dimbirthday As Date
year = Int(Val(Text1.Text))
month = Int(Val(Text2.Text))
day = Int(Val(Text3.Text))
birthday = DateSerial(year, month, day)
weekofday = Weekday(birthday)
Label6.Caption = WeekdayName(weekofday)
End Sub
Function myweekdayname(weekofday AsInteger) As String
Select Case weekofday
case1
myweekdayname "星期日"
case2
myweekdayname "星期一"
case3
myweekdayname "星期二"
case4
myweekdayname "星期三"
case5
myweekdayname "星期四"
case6
myweekdayname "星期五"
Case7
myweekdayname "星期六"
End Select
End Function
- 计算出生日期那天是星期几
- 计算你的出生日期是星期几
- 计算你的出生日期是星期几
- 计算出生那天是星期几
- 用户输入年月日,计算那天是星期几
- 你出生那天是星期几
- mysql中根据某个给定日期计算那天是星期几的方法
- 如何计算某一天是星期几?
- 怎样计算任一天是星期几
- 如何计算某一天是星期几!
- 计算某一天是星期几
- 计算某一天是星期几
- 如何计算某一天是星期几?
- 怎样计算任一天是星期几
- 如何计算某一天是星期几?
- JavaScript计算某一天是星期几
- 如何计算某一天是星期几
- 如何计算某一天是星期几?
- html padding 和 margin
- sql server存储过程实例:统计一段时间内各连续ID的价格合计
- How to Perfectly Uninstall Ad-Aware Free Internet Security
- js location
- 安装openSUSE之后启动XP
- 计算出生日期那天是星期几
- 耿后旺2012年4月在公司的培训总结
- java web中jsp与servlet之间的跳转和传递参数
- stl 容器
- MFC COMBO BOX
- C语言深度解剖(精讲版)——读书笔记5 &&自己的一些理解
- enable_irq_wake
- java JNI 调用
- 系统引导管理器学习