Module Example
Public Sub Main()
Dim unclearDate As Date = #11/4/2010 1:30AM#
' Test if time is DST.
Console.WriteLine("In the {0}, {1} is {2}daylight saving time.", _
TimeZoneInfo.Local.DisplayName, _
unclearDate, _
IIf(TimeZoneInfo.Local.IsDaylightSavingTime(unclearDate), "", "not "))
End Sub
End Module