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

関連項目

OnIntervalChange イベント

用語集