【Excel VBA】西暦数字から和暦数字へと変換するコード

ポイント

• Format 関数を使用する。
• Format(y & "/1/1", "e") → y & "/1/1": y に 4 桁の西暦年が入って年月日となる。"e": 和暦の年を指定するフォーマット
• 日付けを # で囲いたかったが、エラーとなるため ” で囲った。
• 月日は元号の境目を意識しないで済むように 1 月 1 日とした。

VBA コード

Public Sub Test()
    Dim y As String: y = "2016"
    Debug.Print "和暦年数字: " & Format(y & "/1/1", "e")
End Sub

結果

和暦年数字: 28

おわりに

参考ページです。

• (エクセルVBA2003）西暦和暦の変換が面白い : IT工務店　店主のつぶやき日記

年月日揃った日付けからの変換や、Date オブジェクトからの取り出しはよく解説されているページを見つけることができました。

ですけれども、「年だけ」の状態から変換することについて触れているページは見つけられませんでしたので、メモいたしました。

わたくしたちの悩みは初歩的すぎるかしらね。。。

以上です。