Weekday関数 ： Access

■ 構文
Weekday(date, [firstdayofweek])

■ 引数
date （必須）： 日付を表す数式または文字列式を指定。
firstdayofweek （省略可）： 週の第 1 日目の曜日を指定する定数。 省略した場合、vbSunday になります。

・ firstdayofweekの定数
vbUseSystem　：　0　-　NLS APIの 設定値を使います。
vbSunday　：　1　-　 (既定値) 日曜
vbMonday　：　2　-　月曜
vbTuesday　：　3　-　火曜
vbWednesday　：　4　-　水曜
vbThursday　：　5　-　木曜
vbFriday　：　6　-　金曜
vbSaturday　：　7　-　土曜

■ 戻り値
下記の値が返ります。

・ 戻り値の定数
vbSunday　：　1　-　日曜
vbMonday　：　2　-　月曜
vbTuesday　：　3　-　火曜
vbWednesday　：　4　-　水曜
VbThursday　：　5　-　木曜
VbFriday　：　6　-　金曜
VbSaturday　：　7　-　土曜

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド2_Click()
    Dim n As Integer
    If IsNull(Me!テキスト0) Then
        MsgBox "日付を入力してください。"
        Exit Sub
    Else
        '曜日コードを取得
        n = Weekday(Me!テキスト0)
            'コードを曜日に変える
        Select Case n
            Case 1: s = "日曜日"
                    Case 2: s = "月曜日"
                    Case 3: s = "火曜日"
                    Case 4: s = "水曜日"
                    Case 5: s = "木曜日"
                    Case 6: s = "金曜日"
                    Case 7: s = "土曜日"
        End Select
            Me!テキスト5 = s
    End If
End Sub