LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim dateTime As New NotesDateTime("Today 06:00") msg = "Zone" & Chr(9) + "Time" For i = -12 To 12 Call dateTime.ConvertToZone(i, True) msg = msg & Chr(10) & dateTime.TimeZone & Chr(9) & _ dateTime.ZoneTime Next Messagebox msg,, "Today 06:00 DST" End Sub
See Also