VB.Net/Development/Calendar

Calendar Localization

  
Imports System
Imports System.Globalization
Module Module1
    Sub Main()
       Dim MyCalendar As Calendar = New GregorianCalendar()
      "Dim MyCalendar As Calendar = New HebrewCalendar()
      Dim MyDate As New DateTime(2001, 8, 22, 15, 30, 0, 0)
      Dim MyCulture As CultureInfo = New CultureInfo("es-ES")
      Console.WriteLine(MyCalendar.AddMinutes(MyDate, 15).ToString("G", MyCulture))
      Console.WriteLine(MyCalendar.TwoDigitYearMax)
      Console.WriteLine(MyCalendar.ToFourDigitYear(32))
      Console.WriteLine(MyCalendar.ToFourDigitYear(28))
    End Sub
End Module