Compares different implementations of the Calendar class.

   

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

Related examples in the same category

1.	Calendar Localization
2.	Calls IsLeapYear() for five years in each of the eras.
3.	Check leap year five years in each of the eras
4.	Call GetMonthsInYear() for five years in each era.
5.	Call GetMonthsInYear(): Displays the values in the Eras property.
6.	GetWeekOfYear varies depending on the FirstDayOfWeek and the CalendarWeekRule used.
7.	The CalendarWeekRule used for the en-US culture
8.	GetWeekOfYear varies depending on the FirstDayOfWeek and CalendarWeekRule values used.
9.	Creates and initializes a ThaiBuddhistCalendar
10.	Calendar.Eras Property gets the list of eras in the current calendar.
11.	Calendar.GetDaysInMonth
12.	Calendar.GetWeekOfYear returns the week of the year that includes the date in the specified DateTime value.
13.	Calendar Week Rule
14.	PersianCalendar Class represents the Persian calendar.
15.	Methods from PersianCalendar
16.	GregorianCalendar Class Represents the Gregorian calendar.
17.	Calendar Class Represents time in divisions, such as weeks, months, and years.
18.	Create date of 1/13/2009 using Hijri calendar.
19.	Return day of date created using Hijri calendar.
20.	Display day of date in Hijri calendar.
21.	Calendar Class represents time in divisions, such as weeks, months, and years.
22.	CultureInfo.OptionalCalendars

Compares different implementations of the Calendar class. : Calendar « Development « VB.Net

Related examples in the same category