LOTUSSCRIPT/COM/OLE CLASSES
%INCLUDE "lsconst.lss"
Sub Click(Source As Button) Dim ws As NotesUIWorkspace Dim uid As NotesUIDocument Dim uis As NotesUIScheduler Set ws = New NotesUIWorkspace Set uid = ws.CurrentDocument Set uis = uid.GetSchedulerObject("Main") Set uisdr = uis.Interval i = Inputbox("If you want, change and press OK", _ "Interval.StartDateTime", _ uisdr.StartDateTime.LocalTime) If i <> "" And i <> uisdr.StartDateTime.LocalTime Then uisdr.StartDateTime.LocalTime = i Set uis.Interval = uisdr End If i = Inputbox("If you want, change and press OK", _ "Interval.EndDateTime", _ uisdr.EndDateTime.LocalTime) If i <> "" And i <> uisdr.EndDateTime.LocalTime Then uisdr.EndDateTime.LocalTime = i Set uis.Interval = uisdr End If End Sub
See Also