WeekDay 函数

返回与由 DateSerial 或 DateValue 函数生成的工作日(以顺序日期数表示)相对应的数字。

语法:

WeekDay (Number)

返回值:

整数

参数:

Number:含有用于计算一周 (1-7) 中的第几天的顺序日期数的整数表达式。

以下示例使用 WeekDay 函数确定输入的日期是星期几。

错误代码:

5 无效的过程调用

示例:

Sub ExampleWeekDay

Dim sDay As String

' 返回并显示星期几

    Select Case WeekDay( Now )

        Case 1

            sDay="Sunday"

        Case 2

            sDay="Monday"

        Case 3

            sDay="Tuesday"

        Case 4

            sDay="Wednesday"

        Case 5

            sDay="Thursday"

        Case 6

            sDay="Friday"

        Case 7

            sDay="Saturday"

    End Select

    MsgBox "" + sDay,64,"今天是"

End Sub