综合资质:VB怎样获取今天是多少号和星期几?
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/03 11:14:38
用VB获取今天是多少号和星期几?
Now 函数返回当前的日期和时间:
Dim MyVar
MyVar = Now ' MyVar 包含当前的日期和时间。
Weekday 函数
返回代表一星期中某天的整数。
Weekday(date, [firstdayofweek])
参数
date
可以代表日期的任意表达式。如果 date 参数中包含 Null,则返回 Null。
Firstdayofweek
指定星期中第一天的常数。如果省略,默认使用 vbSunday。
设置
firstdayofweek 参数有如下设置:
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
返回值
Weekday 函数返回如下值:
常数 值 描述
vbSunday 1 星期日
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
说明
下面例子利用 Weekday 函数得到指定日期为星期几:
Dim MyDate, MyWeekDay
MyDate = #October 19, 1962# ' 分派日期。
MyWeekDay = Weekday(MyDate) ' 由于 MyWeekDay 包含 6,MyDate 代表星期五。
自己编子程序才行。