Mega Code Archive

 

Categories / VB.Net / Development

 

GregorianCalendar MaxSupportedDateTime

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