WeekDay
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