Module
Contents
Index 🔎︎

# 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