Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet7> | |
| Imports System.Globalization | |
| Module Example | |
| Public Sub Main() | |
| Dim year As Integer = 2 | |
| Dim month As Integer = 1 | |
| Dim day As Integer = 1 | |
| Dim cal As New JapaneseCalendar() | |
| Console.WriteLine("Date instantiated without an era:") | |
| Dim date1 As New Date(year, month, day, 0, 0, 0, 0, cal) | |
| Console.WriteLine("{0}/{1}/{2} in Japanese Calendar -> {3:d} in Gregorian", | |
| cal.GetMonth(date1), cal.GetDayOfMonth(date1), | |
| cal.GetYear(date1), date1) | |
| Console.WriteLine() | |
| Console.WriteLine("Dates instantiated with eras:") | |
| For Each era As Integer In cal.Eras | |
| Dim date2 As Date = cal.ToDateTime(year, month, day, 0, 0, 0, 0, era) | |
| Console.WriteLine("{0}/{1}/{2} era {3} in Japanese Calendar -> {4:d} in Gregorian", | |
| cal.GetMonth(date2), cal.GetDayOfMonth(date2), | |
| cal.GetYear(date2), cal.GetEra(date2), date2) | |
| Next | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' Date instantiated without an era: | |
| ' 1/1/2 in Japanese Calendar -> 1/1/1990 in Gregorian | |
| ' | |
| ' Dates instantiated with eras: | |
| ' 1/1/2 era 4 in Japanese Calendar -> 1/1/1990 in Gregorian | |
| ' 1/1/2 era 3 in Japanese Calendar -> 1/1/1927 in Gregorian | |
| ' 1/1/2 era 2 in Japanese Calendar -> 1/1/1913 in Gregorian | |
| ' 1/1/2 era 1 in Japanese Calendar -> 1/1/1869 in Gregorian | |
| ' </Snippet7> |