Module Example Public Sub Main() Dim date1 As Date Dim timeZone As TimeZoneInfo Console.WriteLine("The time is {0:t} on {0:d} {1}", _ date1, _ IIf(timeZone.IsDaylightSavingTime(date1), _ timezone.DaylightName, timezone.StandardName)) End Sub End Module