LOTUSSCRIPT/COM/OLE CLASSES


Examples: ConvertToZone method
This code converts today at 6:00 AM to all the time zones using daylight-saving time.

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