LOTUSSCRIPT/COM/OLE CLASSES

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

See Also