選擇日期帶出星期(页 1) - VB6论坛

jxyga111 发表于 2008-6-24 09:25

選擇日期帶出星期

怎麼樣得出,選擇日期帶出星期

永夜的极光 发表于 2008-6-24 10:13

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 代表星期五。

jxyga111 发表于 2008-6-24 10:57

得出來了,謝了樓上的
Dim MyDate, MyWeekDay
MyDate = date
MyWeekDay = Weekday(MyDate)

页: [1]