Imports System
Imports System.Globalization
Public Class SamplesCalendar
Public Shared Sub Main()
' Create an instance of the calendar.
Dim myCal As New GregorianCalendar()
Console.WriteLine(myCal.ToString())
' Display the MinSupportedDateTime.
Dim myMin As DateTime = myCal.MinSupportedDateTime
Console.WriteLine("MinSupportedDateTime: {0:D2}/{1:D2}/{2:D4}", myCal.GetMonth(myMin), myCal.GetDayOfMonth(myMin), myCal.GetYear(myMin))
' Display the MaxSupportedDateTime.
Dim myMax As DateTime = myCal.MaxSupportedDateTime
Console.WriteLine("MaxSupportedDateTime: {0:D2}/{1:D2}/{2:D4}", myCal.GetMonth(myMax), myCal.GetDayOfMonth(myMax), myCal.GetYear(myMax))
End Sub 'Main
End Class 'SamplesCalendar