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

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

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