西历和历转换

        Dim dt As Date
        Console.WriteLine(DateValue("H20/10/12").Date.ToShortDateString)
        DateTime.TryParseExact("20081010", "yyyyMMdd", Nothing, Globalization.DateTimeStyles.None, dt)

        Dim ci As CultureInfo = New CultureInfo("ja-JP")
        Dim cal As Calendar = New JapaneseCalendar
        ci.DateTimeFormat.Calendar = New JapaneseCalendar

        Dim strWri As String = ci.DateTimeFormat.GetAbbreviatedEraName(Calendar.CurrentEra) + dt.ToString("yy/MM/dd", ci)
        Console.WriteLine(dt.Date.ToString("gyy/MM/dd", ci))
        Console.WriteLine(strWri)

        Console.WriteLine(cal.MaxSupportedDateTime.ToString)

        For Each name As String In ci.DateTimeFormat.AbbreviatedDayNames
            Console.WriteLine(name)
        Next
        For Each name As String In ci.DateTimeFormat.DateSeparator
            Console.WriteLine(name)
        Next
        strWri = dt.ToString("gyy/MM/dd", ci) + "(" + ci.DateTimeFormat.GetAbbreviatedDayName(dt.DayOfWeek) + ")" + _
                      ci.DateTimeFormat.GetMonthName(dt.Month)
        Console.WriteLine(strWri)

        'Dim ci As CultureInfo = New CultureInfo("ja-JP")
        'Dim cal As Calendar = New JapaneseCalendar
        'ci.DateTimeFormat.Calendar = cal
        Dim era As String() = {"M", "T", "S", "H"}
        Console.WriteLine(ci.DateTimeFormat.GetEraName(cal.GetEra(dt)) & dt.ToString("yy/MM/dd", ci))
        Console.WriteLine(era(cal.GetEra(dt) - 1) & dt.ToString("yy/MM/dd", ci))
        Console.WriteLine(era(cal.GetEra(dt) - 1) & cal.GetYear(dt) & dt.ToString("/MM/dd", ci))