Imports System
Imports System.Globalization
Public Class SamplesGregorianCalendar
Public Shared Sub Main()
Dim myCIdeDE As New CultureInfo("de-DE", False)
Dim myCIenUS As New CultureInfo("en-US", False)
Dim myCIfrFR As New CultureInfo("fr-FR", False)
Dim myCIruRU As New CultureInfo("ru-RU", False)
Dim myCal = New GregorianCalendar()
myCIruRU.DateTimeFormat.Calendar = myCal
Dim myDT As New DateTime(2002, 1, 3, 13, 30, 45)
Console.WriteLine("de-DE: {0}", myDT.ToString("F", myCIdeDE))
Console.WriteLine("en-US: {0}", myDT.ToString("F", myCIenUS))
Console.WriteLine("fr-FR: {0}", myDT.ToString("F", myCIfrFR))
Console.WriteLine("ru-RU: {0}", myDT.ToString("F", myCIruRU))
End Sub
End Class