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