WeekDay
WeekDay函数返回从1到7的整数，代表该日期指定星期的一天。
语法 :
Weekday(date[,firstdayofweek])
参数说明
-
Date, 必需的参数。Weekday将这一指定日期返回。
-
firstdayofweek, 一个可选的参数。指定一周的第一天.
-
0 = vbUseSystemDayOfWeek - 使用国家语言支持(NLS)API设置
-
1 = vbSunday - 星期日
-
2 = vbMonday - 星期一
-
3 = vbTuesday - 星期二
-
4 = vbWednesday - 星期三
-
5 = vbThursday - 星期四
-
6 = vbFriday - 星期五
-
7 = vbSaturday - 星期六
-
示例
添加一个按钮，并添加以下功能
Private Sub Constant_demo_Click() msgbox("Line 1: " & Weekday("2013-05-16",1)) msgbox("Line 2: " & Weekday("2013-05-16",2)) msgbox("Line 3: " & Weekday("2013-05-16",2)) msgbox("Line 4: " & Weekday("2010-02-16")) msgbox("Line 5: " & Weekday("2010-02-17")) msgbox("Line 6: " & Weekday("2010-02-18")) End Sub
当执行函数输出如下所示：
Line 1: 5 Line 2: 4 Line 3: 4 Line 4: 3 Line 5: 4 Line 6: 5