Mega Code Archive
Compares different implementations of the Calendar class
<![CDATA[
Imports System
Imports System.Globalization
Public Class SamplesCalendar
Public Shared Sub Main()
Dim myCals(7) As Calendar
myCals(0) = New GregorianCalendar()
myCals(1) = New HebrewCalendar()
myCals(2) = New HijriCalendar()
myCals(3) = New JapaneseCalendar()
myCals(4) = New JulianCalendar()
myCals(5) = New KoreanCalendar()
myCals(6) = New TaiwanCalendar()
myCals(7) = New ThaiBuddhistCalendar()
Dim i, j, iYear, iMonth, iDay As Integer
Dim myDT As DateTime = DateTime.Today
For i = 0 To myCals.Length - 1
iYear = myCals(i).GetYear(myDT)
Console.WriteLine(myCals(i).GetType())
Console.WriteLine(myCals(i).GetYear(myDT))
Console.WriteLine("MonthsInYear:")
Console.WriteLine(myCals(i).GetMonthsInYear(iYear))
Console.WriteLine("DaysInYear")
Console.WriteLine(myCals(i).GetDaysInYear(iYear))
For j = 1 To myCals(i).GetMonthsInYear(iYear)
Console.Write(" {0,-5}", myCals(i).GetDaysInMonth(iYear, j))
Next j
iMonth = myCals(i).GetMonth(myDT)
iDay = myCals(i).GetDayOfMonth(myDT)
Console.WriteLine("IsLeapDay: {0}", myCals(i).IsLeapDay(iYear, iMonth, iDay))
Console.WriteLine("IsLeapMonth: {0}", myCals(i).IsLeapMonth(iYear, iMonth))
Console.WriteLine("IsLeapYear: {0}", myCals(i).IsLeapYear(iYear))
Next i
End Sub
End Class
]]>