例: ConvertToZone method

次のコードは今日の 6:00 AM をサマータイムを使用するすべてのタイムゾーンに変更します。

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