AccessのVBAでSQLのWeekDay関数で曜日を求める

WeekDay関数を使い曜日を求めるサンプル

WEEKDAYを使うと下の値を得ることができます。
これにより曜日を求めることができます。
日曜 : 1
月曜 : 2
火曜 : 3
水曜 : 4
木曜 : 5
金曜 : 6
土曜 : 7

構文: WeekDay( 日付フィールド )



BackHomeへ BackSQL Tipsへ

サンプルソフト
■実行画面
ボタンをクリックすると、「名前」「生年月日」「生年月日の曜日」を表示します。
曜日を求めるフォーム

■計算元の社員マスターテーブル
計算元のテーブル

■実行結果
田山 由香 : 1990/10/05 : 金曜
大木 さわ : 1980/01/20 : 日曜
本田 信二 : 1985/12/18 : 水曜


[コード]
Option Compare Database

'曜日を求めるボタン
Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim s1 As String
        Me!テキスト1 = Null
    SQL = "SELECT 名前,生年月日,WeekDay(生年月日) FROM M_社員マスター"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Select Case rs(2)
            Case 1: s1 = "日曜"
            Case 2: s1 = "月曜"
            Case 3: s1 = "火曜"
            Case 4: s1 = "水曜"
            Case 5: s1 = "木曜"
            Case 6: s1 = "金曜"
            Case 7: s1 = "土曜"
        End Select
        Me!テキスト1 = Me!テキスト1 & rs(0) & "  :  " & rs(1) & "  :  " & s1 & vbCrLf & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
    End Sub

サンプルソフトのダウンロード



BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft