－ちょっと使えるネタを紹介－
Excel VBAで日付のフォーマットを変換する方法についてご紹介します。日付のフォーマットを変換するには、Formatを使えばできます。Formatを使えば、西暦、和暦、曜日を加える、などの書式変更ができます。Format、優秀です。
この記事では、日付のフォーマットを変換する方法についてご紹介します。
日付のフォーマットを変換するには、VBA関数『Format』がかなり便利です。
西暦に変換したり、和暦に変換、曜日を加える、などFormatを覚えておけば書式の変換は楽になります。
さらに、数値8桁から日付に変換したり、日付型データから日付だけ、時間だけを取り出すこともできて優秀です。
では、説明していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
初めに、ポイントとなるVBAコードを記載しておきます。
VBAコードだけ確認したいという場合にご活用ください。
Dim A, B '西暦 A = #1/1/2020# B Format(A, "yyyy/mm/dd") '"2020/01/01" B = Format(A, "yyyy/m/d") '"2020/1/1" B = Format(A, "yy/mm/dd") '"20/01/01" B = Format(A, "yyyymmdd") '"20200101" '数値 A = #1/1/2020# B = Val(Format(A, "yyyymmdd")) '20200101 '和暦 A = #1/1/2020# B = Format(A, "ggge年mm月dd日") '"令和2年01月01日" B = Format(A, "gge年mm月dd日") '"令2年01月01日" B = Format(A, "ge年mm月dd日") '"R2年01月01日" '曜日 A = #1/1/2020# B = Format(A, "yyyy/mm/dd(aaaa)") '"2020/01/01(水曜日)" B = Format(A, "yyyy/mm/dd(aaa)") '"2020/01/01(水)" B = Format(A, "yyyy/mm/dd(ddd)") '"2020/01/01(Wed)" B = Format(A, "aaaa") '"水曜日" '時間 A = #1/1/2020 1:02:03 AM# B = Format(A, "yyyy/mm/dd hh時mm分ss秒") '"2020/01/01 01時02分03秒" B = Format(A, "yyyy/mm/dd hh:mm:ss") '"2020/01/01 01:02:03" B = Format(A, "hh:mm:ss") '"01:02:03" '数値8桁を日付に変換 A = 20200101 B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01 '日付データから一部データのみ取得 A = #1/1/2020 1:02:03 AM# B = CDate(Format(A, "yyyy/mm/dd")) '2020/01/01 B = CDate(Format(A, "hh:mm:ss")) '1:02:03
では、解説していきます。
日付のフォーマットを変換するには、Formatを使うと便利です。
Formatは、文字列や日付、時間のフォーマットを変換することができます。
この記事では、Formatを使って、日付の書式を変換する方法についてご紹介します。
Formatへは、次のように引数を入力します。
『変換後の文字列 = Format(日付, 書式)』
では、よく使われる代表的な日付の書式への変換方法について具体的な方法を説明していきます。
まずは、西暦への書式変換について説明します。
西暦の変換は次の書式があります。
では、それぞれのVBAコードと実行結果を記載します。
日付『#1/1/2020#』を西暦のyyyy/mm/dd形式に変換するVBAコードです。
Sub TEST1()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyy/mm/dd") 'yyyy/mm/dd形式へ変換
End Sub
実行します。
結果は、『"2020/01/01"』となりました。
変換後は、文字列となります。
日付『#1/1/2020#』を西暦のyyyy/m/d形式に変換するVBAコードです。
例えば、1月は『"01"』ではなく『"1"』と表示させたい場合です。
Sub TEST2()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyy/m/d") 'yyyy/m/d形式へ変換
End Sub
実行します。
結果は、『"2020/1/1"』となりました。
Formatの変換後は、文字列となります。
日付『#1/1/2020#』を西暦のyy/mm/dd形式に変換するVBAコードです。
西暦の年を短縮して2桁で表示したい場合です。
例えば、2020年は『"20"』と表示したい場合です。
Sub TEST3()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yy/mm/dd") 'yy/mm/dd形式へ変換
End Sub
実行します。
結果は、『"20/01/01"』となりました。
変換後は、文字列となります。
日付『#1/1/2020#』をyyyymmdd形式に変換するVBAコードです。
日付を数値だけの文字列に変換したい場合です。
Sub TEST4()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyymmdd") 'yyyymmdd形式へ変換
End Sub
実行します。
結果は、『"20200101"』となりました。
変換後は、文字列となります。
西暦については、このような書式変換が多いかと思います。
日付を、Formatを使って数値に変換する方法です。
こちらは、FormatとValを組み合わせて、変換することができます。
手順は、
日付『#1/1/2020#』を数値8桁に変換するVBAコードです。
Sub TEST5()
Dim A, B
A = #1/1/2020#
B = Format(A, "yyyymmdd") 'yyyymmdd形式へ変換
MsgBox Val(B) '数値へ変換
End Sub
実行してみます。
結果は、『20200101』となりました。
変数の型は、数値となっています。
日付を和暦へ変換する方法もよく使われるかと思います。
次の和暦があります。
では、VBAコードと実行結果について説明します。
日付を和暦に変換する方法です。
Formatに『"ggge年mm月dd日"』と入力するとできます。
日付『#1/1/2020#』を和暦へ変換するVBAコードです。
Sub TEST6()
Dim A
A = #1/1/2020#
MsgBox Format(A, "ggge年mm月dd日") '和暦へ変換
End Sub
実行してみます。
結果は、『"令和2年01月01日"』となりました。
つづいて、日付を頭文字だけの和暦に変換する方法です。
元号の1文字目だけを表示する方法になります。
Formatに『"gge年mm月dd日"』と入力します。
日付『#1/1/2020#』を頭文字だけの和暦へ変換するVBAコードです。
Sub TEST7()
Dim A
A = #1/1/2020#
MsgBox Format(A, "gge年mm月dd日") '頭文字の和暦へ変換
End Sub
実行してみます。
結果は、『"令2年01月01日"』となりました。
日付をアルファベット文字の和暦に変換する方法です。
元号のアルファベット1文字目で表示する方法です。
Formatに『"ge年mm月dd日"』と入力するとできます。
日付『#1/1/2020#』をアルファベット1文字の和暦へ変換するVBAコードです。
Sub TEST8()
Dim A
A = #1/1/2020#
MsgBox Format(A, "ge年mm月dd日") 'アルファベットの和暦へ変換
End Sub
実行してみます。
結果は、『"R2年01月01日"』となりました。
Formatを使えば、日付に曜日を加えて変換することもできます。
曜日を付ける例としては次のパターンがあります。
では、VBAコードと実行結果について記載します。
まずは、Formatを使って、日付に長い曜日を加えて変換する方法です。
長い曜日は、『(月曜日)』とかです。
Formatに『"yyyy/mm/dd(aaaa)"』を入力すればできます。
日付『#1/1/2020』を長い曜日を加えて変換するVBAコードです。
Sub TEST9()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyy/mm/dd(aaaa)") '長い曜日を加える
End Sub
実行してみます。
結果は、『"2020/01/01(水曜日)"』となりました。
長い曜日を付けられました。
つづいて、Formatを使って、日付に短い曜日を加えて変換する方法です。
短い曜日は、『(月)』とかです。
Formatに『"yyyy/mm/dd(aaa)"』を入力すればできます。
日付『#1/1/2020』を短い曜日を加えて変換するVBAコードです。
Sub TEST10()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyy/mm/dd(aaa)") '短い曜日を加える
End Sub
実行してみます。
結果は、『"2020/01/01(水)"』となりました。
短い曜日を付けられました。
Formatを使って、日付に英語の曜日を加えて変換する方法です。
英語の曜日は、『(Mon)』とかです。
Formatに『"yyyy/mm/dd(ddd)"』を入力すればできます。
日付『#1/1/2020』を英語の曜日を加えて変換するVBAコードです。
Sub TEST11()
Dim A
A = #1/1/2020#
MsgBox Format(A, "yyyy/mm/dd(ddd)") '英語の曜日を加える
End Sub
実行してみます。
結果は、『"2020/01/01(Wed)"』となりました。
英語の曜日を付けられました。
Formatを使って、日付を曜日だけに変換する方法です。
Formatに『"aaaa"』を入力すればできます。
日付『#1/1/2020』を曜日に変換するVBAコードです。
Sub TEST12()
Dim A
A = #1/1/2020#
MsgBox Format(A, "aaaa") '曜日だけに変換
End Sub
実行してみます。
結果は、『"水曜日"』となりました。
曜日だけに変換できました。
日付に時間も含まれている場合は、Formatで時間に変換することができます。
時間としては、代表的なところで次の書式があります。
では、VBAコードと実行結果をみていきます。
時間を含む日付を長い時間に変換するにはFormatに『"yyyy/mm/dd h時m分s秒"』と入力するとできます。
時間を含む日付『#1/1/2020 1:02:03 AM#』を長い時間に変換するVBAコードです。
Sub TEST13()
Dim A
A = #1/1/2020 1:02:03 AM#
MsgBox Format(A, "yyyy/mm/dd h時m分s秒") '長い時間に変換
End Sub
実行してみます。
結果は、『"2020/01/01 1時間2分3秒"』となりました。
長い時間に変換できました。
時間を含む日付を短い時間に変換するにはFormatに『"yyyy/mm/dd hh:mm:ss"』と入力するとできます。
時間を含む日付『#1/1/2020 1:02:03 AM#』を短い時間に変換するVBAコードです。
Sub TEST14()
Dim A
A = #1/1/2020 1:02:03 AM#
MsgBox Format(A, "yyyy/mm/dd hh:mm:ss") '短い時間に変換
End Sub
実行してみます。
結果は、『"2020/01/01 01:02:03"』となりました。
短い時間に変換できています。
時間を含む日付を、時間だけに変換するにはFormatに『"hh:mm:ss"』と入力するとできます。
時間を含む日付『#1/1/2020 1:02:03 AM#』を時間だけに変換するVBAコードです。
Sub TEST15()
Dim A
A = #1/1/2020 1:02:03 AM#
MsgBox Format(A, "hh:mm:ss") '時間だけに変換
End Sub
実行してみます。
結果は、『"01:02:03"』となりました。
時間だけに変換できました。
Formatを使って数値8桁から日付に変換する方法についてご紹介します。
Formatは表示形式を指定して文字列に変えるだけでなく、数値から日付に変化などもできます。
数値8桁があって、それを日付に変換したい場合を考えます。
日付に変換なので、CDateを使えば日付に変換できそうです。
しかし、数値8桁を日付と認識できないので、CDateで日付に変換はできません。
やってみます。
数値『20200101』をCDateを使って日付に変換しようとしてみます。
Sub TEST16()
Dim A
A = 20200101
MsgBox CDate(A) '日付に変換（エラーになります）
End Sub
実行してみます。
結果は、エラーとなります。
数値8桁を日付と認識できないので日付に変換はできません。
このときに、Formatの出番です。
Formatを使って数値8桁を日付に変換する方法を説明します。
手順は、
という流れになります。
数値『20200101』を日付に変換するVBAコードです。
Sub TEST17()
Dim A, B
A = 20200101
B = Format(A, "@@@@/@@/@@") 'yyyy/mm/dd形式へ変換
MsgBox CDate(B) '日付に変換
End Sub
実行してみます。
結果は、『2020/01/01』となりました。
変数の型も、日付となっています。
Format、使えます。
日付型のデータから、一部のデータだけに変換する方法を紹介します。
例えば次のような場合です。
日付と時間のデータがあるけど、日付だけのデータにしたいとか、時間だけのデータにしたい、といった場合です。
日付と時間の日付型データを、日付だけの日付型データに変換する方法です。
日付型データ『#1/1/2020 1:02:03 AM#』から日付だけの日付型データに変換してみます。
Sub TEST18()
Dim A, B
A = #1/1/2020 1:02:03 AM#
B = Format(A, "yyyy/mm/dd") 'yyyy/mm/dd形式へ変換
MsgBox CDate(B) '日付に変換
End Sub
実行してみます。
結果は、『2020/01/01』となりました。
変数の型は、日付型となっています。
日付だけの日付型データに変換できました。
日付と時間の日付型データを時間だけの日付型データに変換する方法です。
日付型データ『#1/1/2020 1:02:03 AM#』から、時間だけの日付型データに変換してみます。
Sub TEST19()
Dim A, B
A = #1/1/2020 1:02:03 AM#
B = Format(A, "hh:mm:ss") '時間だけに変換
MsgBox CDate(B) '日付に変換
End Sub
実行してみます。
結果は、『1:02:03』となりました。
変数の型は、日付型となっています。
時間だけの日付型データに変換できました。
この記事では、日付のフォーマットを変換する方法についてご紹介しました。
日付のフォーマットを変換するには、VBA関数『Format』がかなり便利です。
西暦に変換したり、和暦に変換、曜日を加える、などFormatを覚えておけば書式の変換は楽になります。
さらに、数値8桁から日付に変換したり、日付型データから日付だけ、時間だけを取り出すこともできて優秀です。
参考になればと思います。最後までご覧くださいましてありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する