Access SQL Format関数使用例：日付の書式

SQL = " SELECT Format(日付 , '書式') "

SQL = " SELECT Format(日付フィールド , '書式') FROM テーブル "

サンプルソフト
■実行画面
ボタンをクリックすると、Formatで現在の日付を各種書式で表示します。
Formatで日付表示

■実行結果
yyyy.mm.dd ： 2008.09.17
yyyy.m.d ： 2008.9.17
yy.mm.dd ： 08.09.17
yy.m.d ： 08.9.17
''yy.mm.dd ： '08.09.17
''yy.m.d ： '08.09.17
yyyy/mm/dd ： 2008/09/17
yyyy/m/d ： 2008/9/17
yy/mm/dd ： 08/09/17
yy/m/d ： 08/9/17
gee.mm.dd ： H20.09.17
gee.m.d ： H20.9.17
e.mm.dd ： 20.09.17
e.m.d ： 20.9.17
ggee.mm.dd ：平20.09.17
ggge.m.d ：平成20.9.17
yy年mm月dd日： 08年09月17日
yy年m月d日： 08年9月17日
yyyy年mm月dd日： 2008年09月17日
gee年mm月dd日： H20年09月17日
gggee年mm月dd日：平成20年09月17日
mm月dd日： 09月17日

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT Format(now, 'yyyy.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yyyy.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yyyy.m.d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yyyy.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy.m.d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, '''yy.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "''yy.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, '''yy.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "''yy.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yyyy/mm/dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yyyy/mm/dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yyyy/m/d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yyyy/m/d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy/mm/dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy/mm/dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy/m/d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy/m/d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'gee.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "gee.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'gee.m.d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "gee.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'e.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "e.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'e.m.d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "e.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'ggee.mm.dd')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "ggee.mm.dd： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'ggge.m.d')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "ggge.m.d： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy年mm月dd日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy年mm月dd日： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yy年m月d日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yy年m月d日： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'yyyy年mm月dd日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "yyyy年mm月dd日： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'gee年mm月dd日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "gee年mm月dd日： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'gggee年mm月dd日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "gggee年mm月dd日： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'mm月dd日')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "mm月dd日： " & rs(0) & vbCrLf
    Set rs = Nothing
End Sub

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

SQL Format関数使用例： 日付の書式

Format関数で日付を各種書式で表示するサンプル

SQL Format関数使用例：日付の書式