Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim jc As New PersianCalendar()
Dim thisDate As Date = Date.Now
Console.WriteLine(" {0:dddd}, {0} in the Gregorian calendar.", thisDate)
Console.WriteLine(" {0}, {1}/{2}/{3} {4}:{5}:{6} in the Persian calendar.", _
jc.GetDayOfWeek(thisDate), _
jc.GetMonth(thisDate), _
jc.GetDayOfMonth(thisDate), _
jc.GetYear(thisDate), _
jc.GetHour(thisDate), _
jc.GetMinute(thisDate), _
jc.GetSecond(thisDate))
Console.WriteLine("PersianEra = {0}", PersianCalendar.PersianEra)
Dim era As Integer
For Each era In jc.Eras
Console.WriteLine(" era = {0}", era)
Next era
Console.WriteLine(" From {0:G}", jc.MinSupportedDateTime)
Console.WriteLine(" To {0:G}", jc.MaxSupportedDateTime)
Console.WriteLine("TwoDigitYearMax = {0}", jc.TwoDigitYearMax)
Console.WriteLine("GetDayOfYear: day = {0}", jc.GetDayOfYear(thisDate))
End Sub
End Class