WeekDay Function (BASIC)

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

Syntax:


WeekDay(Number)

Return value:

整型

Parameters:

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

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

錯誤代碼：

5 無效的程序呼叫

Example:


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