本文整理汇总了VB.NET中System.Globalization.GregorianCalendar.GregorianCalendar构造函数的典型用法代码示例。如果您正苦于以下问题：VB.NET GregorianCalendar构造函数的具体用法？VB.NET GregorianCalendar怎么用？VB.NET GregorianCalendar使用的例子？那么恭喜您, 这里精选的构造函数代码示例或许可以为您提供帮助。您也可以进一步了解该构造函数所在类System.Globalization.GregorianCalendar的用法示例。
在下文中一共展示了GregorianCalendar构造函数的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: SamplesGregorianCalendar
' 导入命名空间
Imports System.Globalization
Public Class SamplesGregorianCalendar
Public Shared Sub Main()
' Creates and initializes three different CultureInfo.
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)
' Creates a Localized GregorianCalendar.
' GregorianCalendarTypes.Localized is the default when using the GregorianCalendar constructor without parameters.
Dim myCal = New GregorianCalendar()
' Sets the DateTimeFormatInfo.Calendar property to a Localized GregorianCalendar.
' Localized GregorianCalendar is the default calendar for de-DE, en-US, and fr-FR,
myCIruRU.DateTimeFormat.Calendar = myCal
' Creates a DateTime.
Dim myDT As New DateTime(2002, 1, 3, 13, 30, 45)
' Displays the DateTime.
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输出：
de-DE: Donnerstag, 3. Januar 2002 13:30:45 en-US: Thursday, January 03, 2002 1:30:45 PM fr-FR: jeudi 3 janvier 2002 13:30:45 ru-RU: 3 января 2002 г. 13:30:45