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