Format関数を使用した各種日付の表示 ： Access

■ Access VBA 実行コード

'コマンドボタン　クリックイベント
Private Sub コマンド0_Click()
'各種形式で日付、時刻を表示します。
    '[ 2007.03.03 ]
    Me!テキスト1 = Format(Now, "yyyy.mm.dd") & vbCrLf
    '[ 2007.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yyyy.m.d") & vbCrLf
    '[ 07.03.03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy.mm.dd") & vbCrLf
    '[ 07.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy.m.d") & vbCrLf
    '[ '07.03.03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "'yy.mm.dd") & vbCrLf
    '[ '07.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "'yy.m.d") & vbCrLf
    '[ 2007/03/03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yyyy/mm/dd") & vbCrLf
    '[ 2007/3/3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yyyy/m/d") & vbCrLf
    '[ 07/03/03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy/mm/dd") & vbCrLf
    '[ 07/3/3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy/m/d") & vbCrLf
    '[ H19.03.03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "gee.mm.dd") & vbCrLf
    '[ H19.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "gee.m.d") & vbCrLf
    '[ 19.03.03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "e.mm.dd") & vbCrLf
    '[ 19.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "e.m.d") & vbCrLf
    '[ 平19.03.03 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "ggee.mm.dd") & vbCrLf
    '[ 平成19.3.3 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "ggge.m.d") & vbCrLf
    '[ 07年03月03日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy年mm月dd日") & vbCrLf
    '[ 07年3月3日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yy年m月d日") & vbCrLf
    '[ 2007年03月03日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "yyyy年mm月dd日") & vbCrLf
    '[ H19年03月03日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "gee年mm月dd日") & vbCrLf
    '[ 平成19年03月03日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "gggee年mm月dd日") & vbCrLf
    '[ 03月03日 ]
    Me!テキスト1 = Me!テキスト1 & Format(Now, "mm月dd日")
End Sub