Weekday関数 : Access

Access Weekday関数は指定した日付が何曜日かを表すバリアント型のコードを返します。

スポンサーリンク




BackHomeへ BackAccess関数メニューへ

■ 構文
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実行画面

「曜日を求める日付」に日付を入力し、「曜日を取得」ボタンをクリックすると、テキストボックスに曜日名を表示します。
WeekDay関数実行Accessフォーム

スポンサーリンク



■ 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

スポンサーリンク




BackHomeへ BackAccess関数メニューへ

Copyright(C) FeedSoft