Mega Code Archive
CultureInfo OptionalCalendars
<![CDATA[
Imports System
Imports System.Globalization
Public Class SamplesCultureInfo
Public Shared Sub Main()
Dim myOptCals As Calendar() = New CultureInfo("ar-SA").OptionalCalendars
Dim cal As Calendar
For Each cal In myOptCals
If cal.GetType() Is GetType(GregorianCalendar) Then
Dim myGreCal As GregorianCalendar = CType(cal, GregorianCalendar)
Dim calType As GregorianCalendarTypes = myGreCal.CalendarType
Console.WriteLine(" {0} ({1})", cal, calType)
Else
Console.WriteLine(" {0}", cal)
End If
Next cal
End Sub
End Class
]]>