' wareki1.vb Imports System Imports System.Globalization Module WarekiSample1 Sub Main() Dim 日付 As DateTime = New DateTime(2003,7,1,12,34,56) Dim カレンダー As JapaneseCalendar = New JapaneseCalendar() Console.WriteLine(カレンダー.GetEra(日付)) ' 出力:4 Dim 元号名 As String() = {"明治", "大正", "昭和", "平成"} Console.WriteLine(元号名(カレンダー.GetEra(日付) - 1)) ' 出力:平成 ' あるいは、元号名の配列を持たずに、以下のようにしてもよい ' Dim カルチャ As CultureInfo = New CultureInfo("ja-JP", True) ' カルチャ.DateTimeFormat.Calendar = カレンダー ' Dim 日付の元号 As String _ ' = カルチャ.DateTimeFormat.GetEraName(カレンダー.GetEra(日付)) ' Console.WriteLine(日付の元号) ' 出力:平成 Console.WriteLine(カレンダー.GetYear(日付)) ' 出力:15 End Sub End Module ' コンパイル方法:vbc wareki1.vb