スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
FORMAT関数を使用して、日付型のフィールドを書式を指定して表示します。YYYYは西暦4桁、Mは月、Dは日を表します。1桁の場合に前に0をつけて2桁で表示するときは、MM 、DDと指定します。また、曜日の日本語表示はAAAA、英語表示はDDDDとなります。


● サンプル ●
'日付型のフィールドを書式を指定して表示する
Public Sub Sample()

    Dim myDB As Database
    Dim myRS As DAO.Recordset
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT 社員コード,名前," & _
            "FORMAT(入社年月日,'YYYY年M月D日 AAAA')," & _
            "FORMAT(入社年月日,'YYYY年MM月DD日 DDDD') " & _
            "FROM 社員テーブル WHERE 社員コード=10001 ;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLステートメントを実行してレコードセットを開く
    Set myRS = myDB.OpenRecordset(mySQL, dbOpenDynaset)
    'レコードセットの内容を表示する
        MsgBox myRS(0) & " " & myRS(1) & vbCrLf & _
               "入社年月日:" & myRS(2) & vbCrLf & "入社年月日:" & myRS(3)
    'レコードセットを閉じる
    myRS.Close

End Sub

● 補足 ●
結果は、メッセージダイアログに表示されます。