WeekDay Function

傳回與由 DateSerial 或 DateValue 函式產生的工作日 (以順序日期數表示) 相對應的數字。

語法：

WeekDay(Number)

傳回值類型：

整型

參數：

Number：整型表示式，包含用於計算一周 (用 1 到 7 表示) 中的第幾天的順序日期數。

以下示例使用 WeekDay 函式確定輸入的日期是星期幾。

錯誤代碼：

5 無效的程序呼叫

示例：

Sub ExampleWeekDay

Dim sDay As String

REM 傳回並顯示輸入的日期是星期幾

    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,"Today is"

End Sub