Examples: Interval property

%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