PersianCalendar Class represents the Persian calendar.
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