Imports System.Globalization
Imports System.Threading
Module MainClass
Public Sub Main()
Dim originalCulture As CultureInfo = Thread.CurrentThread.CurrentCulture
Dim ci As New CultureInfo("ar-SA")
Thread.CurrentThread.CurrentCulture = ci
Dim hijriDate As New Date(2010, 1, 17,Thread.CurrentThread.CurrentCulture.Calendar)
Console.WriteLine(hijriDate.ToString("dd-MM-yyyy"))
Console.WriteLine(hijriDate.Day)
Console.WriteLine(Thread.CurrentThread.CurrentCulture.Calendar.GetDayOfMonth(hijriDate))
Thread.CurrentThread.CurrentCulture = originalCulture
Dim moment As New System.DateTime(1999, 1, 13, 3, 57, 32, 11)
Dim year As Integer = moment.Year
Dim month As Integer = moment.Month
Dim day As Integer = moment.Day
Dim hour As Integer = moment.Hour
Dim minute As Integer = moment.Minute
Dim second As Integer = moment.Second
Dim millisecond As Integer = moment.Millisecond
End Sub
End Module