例: SetAnyDate and SetAnyTime methods

次のエージェントは、現在の日付と時刻を設定した後、日付を任意の日付に、時刻を任意の時刻にします。

Sub Initialize
  Dim dt As New NotesDateTime("")
  REM Set date and time to now
  Call dt.SetNow
  Messagebox dt.LocalTime,, "Date and time set to now"
  REM Set date part to any date
  Call dt.SetAnyDate
  Messagebox dt.LocalTime,, "Date set to any date"
  REM set time part to any time
  Call dt.SetAnyTime
  Messagebox dt.LocalTime,, "Date and time set to any date"
End Sub