Mega Code Archive
Whether a date and time is ambiguous and can be mapped to two or more Coordinated Universal Time (UTC) times
Module Example
Public Sub Main()
Dim baseTime As New Date(2010, 11, 4, 0, 59, 00, DateTimeKind.Unspecified)
Dim newTime As Date
Dim pstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Pacific Standard Time")
For ctr As Integer = 0 To 62
newTime = baseTime.AddMinutes(ctr)
Console.WriteLine("{0} is ambiguous: {1}", newTime, pstZone.IsAmbiguousTime(newTime))
Next
End Sub
End Module