vb System.DateTime.Day类(方法)实例源码

Dim moment As New System.DateTime(1999, 1, 13, 3, 57, 32, 11)

' Year gets 1999.
Dim year As Integer = moment.Year

' Month gets 1 (January).
Dim month As Integer = moment.Month

' Day gets 13.
Dim day As Integer = moment.Day

' Hour gets 3.
Dim hour As Integer = moment.Hour

' Minute gets 57.
Dim minute As Integer = moment.Minute

' Second gets 32.
Dim second As Integer = moment.Second

' Millisecond gets 11.
Dim millisecond As Integer = moment.Millisecond

' Return day of 1/13/2009.
Dim dateGregorian As Date = #1/13/2009#
Console.WriteLine(dateGregorian.Day)
' Displays 13 (Gregorian date).

' Create date of 1/13/2009 using Hijri calendar.
Dim hijri As New HijriCalendar()
Dim dateHijri As Date = New Date(1430, 1, 17, hijri)
' Return day of date created using Hijri calendar.
Console.WriteLine(dateHijri.Day)                   
' Displays 13 (Gregorian date).

' Display day of date in Hijri calendar.
Console.WriteLine(hijri.GetDayOfMonth(dateHijri))  
' Displays 17 (Hijri date).

Dim originalCulture As CultureInfo = Thread.CurrentThread.CurrentCulture

' Change current culture to ar-SA.
Dim ci As New CultureInfo("ar-SA")
Thread.CurrentThread.CurrentCulture = ci

Dim hijriDate As New Date(1430, 1, 17, _
                          Thread.CurrentThread.CurrentCulture.Calendar)
' Display date (uses calendar of current culture by default).
Console.WriteLine(hijriDate.ToString("dd-MM-yyyy"))
' Displays 17-01-1430.

' Display day of 17th of Muharram
Console.WriteLine(hijriDate.Day)
' Displays 13 (corresponding day of January in Gregorian calendar).

' Display day of 17th of Muharram in Hijri calendar.
Console.WriteLine(Thread.CurrentThread.CurrentCulture.Calendar.GetDayOfMonth(hijriDate))
' Displays 17.

Thread.CurrentThread.CurrentCulture = originalCulture