Display the current date and time and show if they occur in daylight saving time
Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Module TimeZoneDemo
Sub Main( )
Dim localZone As TimeZone = TimeZone.CurrentTimeZone
Dim currentDate As DateTime = DateTime.Now
Dim currentYear As Integer = currentDate.Year
Console.WriteLine( currentDate )
Console.WriteLine( localZone.IsDaylightSavingTime( currentDate ) )
End Sub
End Module