LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uid As NotesUIDocument Dim uis As NotesUIScheduler Dim dt As NotesDateTime Set ws = New NotesUIWorkspace Set uid = ws.CurrentDocument Set uis = uid.GetSchedulerObject("Main") Set dt = New NotesDateTime("") Call dt.SetNow Call dt.AdjustHour(1) Set uis.ScheduleGridStart = dt End Sub
See Also