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
Dim currentUTC As DateTime = localZone.ToUniversalTime( currentDate )
Dim currentOffset As TimeSpan = localZone.GetUtcOffset( currentDate )
Console.WriteLine( currentUTC )
Console.WriteLine( currentOffset )
End Sub
End Module