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 - 星期六
