.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: Interval property
This form action changes the 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

See Also