' wareki3.vb Imports System Imports System.Globalization Module WarekiSample3 Sub Main() Dim culture As CultureInfo = New CultureInfo("ja-JP", True) culture.DateTimeFormat.Calendar = New JapaneseCalendar() Dim target As String = "平成15年7月1日" Dim result As DateTime = DateTime.ParseExact(target, "ggyy年M月d日", culture) Console.WriteLine(result.ToLongDateString()) ' 出力:2003年7月1日 End Sub End Module ' コンパイル方法:vbc wareki3.vb