WeekDay

优质

小牛编辑

139浏览

2023-12-01

WeekDay函数返回1到7之间的整数，表示指定日期的星期几。

语法 (Syntax)

Weekday(date[,firstdayofweek])

参数描述 (Parameter Description)

Date - 必需参数。工作日将返回指定日期。
Firstdayofweek - 可选参数。指定一周的第一天。它可以采用以下值。
- 0 = vbUseSystemDayOfWeek - 使用国家语言支持（NLS）API设置
- 1 = vbSunday - 周日
- 2 = vbMonday - 星期一
- 3 =周二 - 周二
- 4 =周三 - 周三
- 5 = vbThursday - 周四
- 6 = vbFriday - 星期五
- 7 = vbSaturday - 星期六

例子 (Example)

添加按钮并添加以下功能。

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