AccessのVBAでSQLのWEEKDAYNAME関数を使い曜日名を求める|フォーム実行例

WEEKDAYでは定数を取得しましたが、WEEKDAYNAMEを使うと曜日名そののものを取得可能です。

2番目の引数にTRUEを指定すると、「金」のように返します。
FALSEを指定すると、「金曜日」のように曜日が付いて返します。



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
        Me!テキスト1 = Null
    SQL = "SELECT 名前,生年月日,WEEKDAYNAME(WeekDay(生年月日),False),WEEKDAYNAME(WeekDay(生年月日),True) FROM M_社員マスター"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "  :  " & rs(1) & "  :  " & rs(2) & "  :  " & rs(3) & vbCrLf & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
    End Sub

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



BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft