Weekday 函数示例
本示例使用 Weekday 函数将日期转换为星期几。Dim MyDate, MyWeekDay
MyDate = #February 12, 1969#   ' 指定一日期。
MyWeekDay = Weekday(MyDate)   '1是星期天,2是星期一,依次类推