Mega Code Archive
Calendar Eras Property gets the list of eras in the current calendar
<![CDATA[
Imports System
Imports System.Globalization
Public Class SamplesJapaneseCalendar
Public Shared Sub Main()
Dim myCal As New JapaneseCalendar()
Dim i As Integer
For i = 0 To myCal.Eras.Length - 1
Console.WriteLine("Eras[{0}] = {1}", i, myCal.Eras(i))
Next i
End Sub
End Class
]]>