Module
Contents
Index 🔎︎

# WeekDay Function

DateSerial ないし DateValue 関数による日付データのシリアル変換値を基に、該当する曜日を示す数値を返します。

## 構文:

    WeekDay (Number)

## 戻り値:

整数

## パラメーター:

Number: 曜日情報 (1-7) を得る日付データのシリアル変換値を示す数値表式。

下記の例では、プログラム実行日の曜日を WeekDay 関数を用いて表示させています。

## Error codes:

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