Examples: OnIntervalChange event

This OnIntervalChange event displays the interval of the current embedded scheduler.

Sub Onintervalchange(Source As Notesuischeduler)
  Dim uisdr As NotesDateRange
  Set uisdr = Source.Interval
  Messagebox uisdr.StartDateTime.LocalTime + _
  " to " + uisdr.EndDateTime.LocalTime,, _
  "Interval"
End Sub