| ■No91267 (河童 さん) に返信
漢字であれば以下で
Dim dt = Date.Parse(TextBox1.Text)
Dim jcul As New System.Globalization.CultureInfo("ja-JP", True)
jcul.DateTimeFormat.Calendar = New System.Globalization.JapaneseCalendar()
TextBox2.Text = $"{dt.ToString("gyy/MM/dd", jcul)}"
英字にしたい場合は、レジストリから元号の漢字に対応するアルファベットを取得して
置き換えるとか。レジストリを直接使用しない方法が用意されているかは分かりません。
令和対応のUpdateが適用されていることが前提です。
|