Display the names for standard time and daylight saving time for the local time zone
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( localZone.StandardName )
Console.WriteLine( localZone.DaylightName )
End Sub
End Module