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