VBAで形式を指定して日付を取得する

VBAで西暦や和暦の日付形式に変換するには「FORMAT」関数に引数を指定することで意図した日付形式に変換することができます。

日付を表示

Date関数で今日の日付を取得して変換します。

'日付表示(今日の日付が2019年12月1日の場合)
MsgBox Format(Date, "yyyyMMdd")     '20191201
MsgBox Format(Date, "yyMMdd")       '191201
MsgBox Format(Date, "yy/M/d")       '19/12/1
MsgBox Format(Date, "ge/M/d")       'R1/12/1
MsgBox Format(Date, "gge/M/d")      '令1/12/1
MsgBox Format(Date, "ggge/M/d")     '令和1/12/1
MsgBox Format(Date, "ggge年M月d日")  '令和1年12月1日

時刻表示

Time関数で現在の時刻を取得して変換します。

'時刻表示(現在の時刻が22時10分1秒の場合
MsgBox Format(time, "hh:mm:ss")     '22:10:01
MsgBox Format(time, "h:m:s")        '22:10:1
MsgBox Format(time, "h:m:s AM/PM")  '10:10:1 PM

日付と時刻を表示

Now関数で今日の日付と現在の時刻を取得して変換します。

'日付と時刻を表示(2019年12月1日 22時10分1秒の場合)
MsgBox Format(Now, "yyyyMMdd hh:mm:ss") '20191201 22:10:01