本文整理匯總了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