VBA 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