日付の和暦⇔西暦変換 (ID:147669)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > この既定のカルチャを変更する場合には、 済みません、(変更でなく)取得用の物も混在させてしまいました。 >> もっとも簡単に変換できるでしょうか？ いろいろな暦を使えるとはいえ、その分、手間は増えてしまいましたね…。 >> という３パターンの変換を求められています。 あらかじめ「Imports System.Globalization」しておいてください。 >> H24/06/06 のような日付を 2012/06/06に変換 Label1.Text = CDate("H24/06/06").ToString("yyyy\/MM\/dd", CultureInfo.InvariantCulture) >> H24/06/06のような日付を 平成24年6月6日に変換 Dim 日本和暦 As New CultureInfo("ja-jp") 日本和暦.DateTimeFormat.Calendar = New JapaneseCalendar() Label2.Text = CDate("H24/06/06").ToString("ggy年MMMMd日", 日本和暦) > 2012/06/06のような日付を 平成24年6月6日に変換 Label3.Text = CDate("2012/06/06").ToString("ggy年MMMMd日", 日本和暦) 本当は Dim dt As Date = CDate("2012/06/06") などではなく、 Dim dt As Date = Date.ParseExact("2012/06/06", "yyyy/MM/dd", CultureInfo.InvariantCulture) などとした方が良いのでしょうが、今回は「もっとも簡単に」との ことなので、ここではあえて手抜き実装なコードで書いています。