Imports System.Globalization
Imports System.Threading
Module YearMethodExample
Public Sub Main()
Dim date1 As Date = #01/01/2010 6:32AM#
Console.WriteLine(date1.Year)
Thread.CurrentThread.CurrentCulture = New CultureInfo("th-TH")
Console.WriteLine(date1.Year)
Dim thaiCalendar As Calendar = CultureInfo.CurrentCulture.Calendar
Console.WriteLine(thaiCalendar.GetYear(date1))
Dim persianCalendar As New PersianCalendar()
Console.WriteLine(persianCalendar.GetYear(date1))
End Sub
End Module