本文整理汇总了VB.NET中System.Globalization.UmAlQuraCalendar.GetEra方法的典型用法代码示例。如果您正苦于以下问题：VB.NET UmAlQuraCalendar.GetEra方法的具体用法？VB.NET UmAlQuraCalendar.GetEra怎么用？VB.NET UmAlQuraCalendar.GetEra使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了UmAlQuraCalendar.GetEra方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Example
' 导入命名空间
Imports System.Globalization
Module Example
Public Sub Main()
Dim date1 As Date = New Date(2011, 4, 3, New GregorianCalendar())
Dim cal As New UmAlQuraCalendar()
Console.WriteLine("{0:MMMM d, yyyy} in the Gregorian calendar is equivalent to:", date1)
DisplayCalendarInfo(cal, date1)
' Add 2 years and 10 months by calling UmAlQuraCalendar methods.
date1 = cal.AddYears(date1, 2)
date1 = cal.AddMonths(date1, 10)
Console.WriteLine("After adding 2 years and 10 months in the {0} calendar,",
GetCalendarName(cal))
Console.WriteLine("{0:MMMM d, yyyy} in the Gregorian calendar is equivalent to:", date1)
DisplayCalendarInfo(cal, date1)
End Sub
Private Sub DisplayCalendarInfo(cal As Calendar, date1 As Date)
Console.WriteLine(" Calendar: {0}", GetCalendarName(cal))
Console.WriteLine(" Era: {0}", cal.GetEra(date1))
Console.WriteLine(" Year: {0}", cal.GetYear(date1))
Console.WriteLine(" Month: {0}", cal.GetMonth(date1))
Console.WriteLine(" DayOfYear: {0}", cal.GetDayOfYear(date1))
Console.WriteLine(" DayOfMonth: {0}", cal.GetDayOfMonth(date1))
Console.WriteLine(" DayOfWeek: {0}", cal.GetDayOfWeek(date1))
Console.WriteLine()
End Sub
Private Function GetCalendarName(cal As Calendar) As String
Return cal.ToString().Replace("System.Globalization.", "").
Replace("Calendar", "")
End Function
End Module输出：
April 3, 2011 in the Gregorian calendar is equivalent to: Calendar: UmAlQura Era: 1 Year: 1432 Month: 4 DayOfYear: 118 DayOfMonth: 29 DayOfWeek: Sunday After adding 2 years and 10 months in the UmAlQura calendar, January 1, 2014 in the Gregorian calendar is equivalent to: Calendar: UmAlQura Era: 1 Year: 1435 Month: 2 DayOfYear: 59 DayOfMonth: 29 DayOfWeek: Wednesday