本文整理汇总了VB.NET中System.Globalization.DateTimeFormatInfo.LongDatePattern属性的典型用法代码示例。如果您正苦于以下问题：VB.NET DateTimeFormatInfo.LongDatePattern属性的具体用法？VB.NET DateTimeFormatInfo.LongDatePattern怎么用？VB.NET DateTimeFormatInfo.LongDatePattern使用的例子？那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Globalization.DateTimeFormatInfo的用法示例。
在下文中一共展示了DateTimeFormatInfo.LongDatePattern属性的3个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: SamplesDTFI
' 导入命名空间
Imports System.Globalization
Public Class SamplesDTFI
Public Shared Sub Main()
' Displays the values of the pattern properties.
Console.WriteLine(" CULTURE PROPERTY VALUE")
PrintPattern("en-US")
PrintPattern("ja-JP")
PrintPattern("fr-FR")
End Sub
Public Shared Sub PrintPattern(myCulture As [String])
Dim myDTFI As DateTimeFormatInfo = New CultureInfo(myCulture, False).DateTimeFormat
Console.WriteLine(" {0} {1}", myCulture, myDTFI.LongDatePattern)
End Sub
End Class
'This code produces the following output. The question marks take the place of native script characters.
'
' CULTURE PROPERTY VALUE
' en-US dddd, MMMM d, yyyy
' ja-JP yyyy'?'M'?'d'?'
' fr-FR dddd d MMMM yyyy
'示例2: Example
' 导入命名空间
Imports System.Globalization
Module Example
Public Sub Main()
Dim date1 As Date = #11/12/2011#
Dim cultureNames() As String = { "en-US", "fr-FR", "ru-RU", "de-DE" }
Console.WriteLine("{0,-7} {1,-20} {2:D}", "Culture", "Long Date Pattern", "Date")
Console.WriteLine()
For Each cultureName In cultureNames
Dim culture As CultureInfo = CultureInfo.CreateSpecificCulture(cultureName)
Console.WriteLine("{0,-7} {1,-20} {2}", culture.Name, culture.DateTimeFormat.LongDatePattern,
date1.ToString("D", culture))
Next
End Sub
End Module输出：
Culture Long Date Pattern Date en-US dddd, MMMM d, yyyy Saturday, November 12, 2011 fr-FR dddd d MMMM yyyy samedi 12 novembre 2011 ru-RU d MMMM yyyy 'г.' 12 ноября 2011 г. de-DE dddd, d. MMMM yyyy Samstag, 12. November 2011
示例3: Example
' 导入命名空间
Imports System.Globalization
Imports System.IO
Module Example
Public Sub Main()
Dim date1 As Date = #8/7/2011#
Dim ci As CultureInfo = CultureInfo.CreateSpecificCulture("ar-SY")
Dim sw As New StreamWriter(".\arSYCalendars.txt")
sw.WriteLine("{0,-32} {1,-21} {2}",
"Calendar", "Long Date Pattern", "Example Date")
sw.WriteLine()
For Each cal As Calendar In ci.OptionalCalendars
ci.DateTimeFormat.Calendar = cal
sw.WriteLine("{0,-32} {1,-21} {2}", GetCalendarName(cal),
ci.DateTimeFormat.LongDatePattern,
date1.ToString("D", ci))
Next
sw.Close()
End Sub
Private Function GetCalendarName(cal As Calendar) As String
Dim calName As String
calName = cal.GetType().Name.Substring(0, cal.GetType().Name.IndexOf("Cal"))
If calName.Equals("Gregorian") Then
Dim grCal As GregorianCalendar = DirectCast(cal, GregorianCalendar)
calName += String.Format("-{0}", grCal.CalendarType)
End If
Return calName
End Function
End Module输出：
Calendar Long Date Pattern Example Date Gregorian-Localized dd MMMM, yyyy 07 آب, 2011 UmAlQura dd/MMMM/yyyy 07/رمضان/1432 Hijri dd/MM/yyyy 08/09/1432 Gregorian-USEnglish dddd, MMMM dd, yyyy Sunday, August 07, 2011 Gregorian-MiddleEastFrench dddd, MMMM dd, yyyy dimanche, août 07, 2011 Gregorian-TransliteratedEnglish dddd, MMMM dd, yyyy الأحد, أغسطس 07, 2011 Gregorian-TransliteratedFrench dddd, MMMM dd, yyyy الأحد, أوت 07, 2011