VBA - WeekDayName() 函数
WeekDayName 函数返回指定日期的工作日名称。
语法
WeekdayName(weekday[,abbreviate[,firstdayofweek]])
参数说明
Weekday − 必需的参数。 工作日的数字。
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