【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

おわりに

参考ページです。

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

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

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

以上です。


スポンサードリンク

コメントを残す