Examples: SetAnyDate and SetAnyTime methods

This agent sets the current date and time, then makes the date any date, then makes the time any time.

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