LOTUSSCRIPT/COM/OLE CLASSES
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