WeekDayName

WeekDayName函数返回指定日期的工作日名称。

语法 (Syntax)

WeekdayName(weekday[,abbreviate[,firstdayofweek]]) 

参数描述 (Parameter Description)

• Weekday - 必需参数。 工作日的数量。

• Toabbreviate - 可选参数。 一个布尔值，指示是否缩写月份名称。 如果留空，则默认值将被视为False。

• 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 : " &WeekdayName(3))
   msgbox("Line 2 : " &WeekdayName(2,True))
   msgbox("Line 3 : " &WeekdayName(1,False))
   msgbox("Line 4 : " &WeekdayName(2,True,0))
   msgbox("Line 5 : " &WeekdayName(1,False,1))
End Sub

执行上述功能时，会产生以下输出。

Line 1 : Tuesday
Line 2 : Mon
Line 3 : Sunday
Line 4 : Tue
Line 5 : Sunday