WeekDay Function (BASIC)

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

Syntax:


WeekDay (Number)

Return value:

整数

Parameters:

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

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

Error codes:

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