VBA WeekDayName函数

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

语法 :

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

参数说明

• weekday, 必需的参数。星期(工作日)的数目(1-5)。

• toabbreviate, 一个可选的参数。一个布尔值，表示如果一个月名字缩写。如果留空，则默认值将被视为False。

• 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 : " &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