VB.Net Tutorial/Date Time/TimeZone

Time zone: DateTimeKind.Local, DateTimeKind.Utc, DateTimeKind.Unspecified

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim theZone As TimeZone = TimeZone.CurrentTimeZone
       Dim result As New System.Text.StringBuilder
       result.Append("DaylightName: ").AppendLine( _
          theZone.DaylightName)
       result.Append("StandardName: ").AppendLine( _
          theZone.StandardName)
       result.Append("IsDaylightSavingTime(Now): ").AppendLine( _
          theZone.IsDaylightSavingTime(Now))
       result.Append("GetUtcOffset(Now): ").AppendLine( _
          theZone.GetUtcOffset(Now).ToString())
       result.Append("System time is Local Time: ")
       result.AppendLine(Now.Kind = DateTimeKind.Local)
       result.Append("System time is Universal Coordinated Time: ")
       result.AppendLine(Now.Kind = DateTimeKind.Utc)
       result.Append("System time is Unspecified: ")
       result.AppendLine(Now.Kind = DateTimeKind.Unspecified)
       Console.WriteLine(result.ToString())
   End Sub

End Class</source>

DaylightName: Pacific Daylight Time
StandardName: Pacific Standard Time
IsDaylightSavingTime(Now): True
GetUtcOffset(Now): -07:00:00
System time is Local Time: True
System time is Universal Coordinated Time: False
System time is Unspecified: False