LOTUSSCRIPT/COM/OLE CLASSES

Examples: UntilTime property
This agent gets the UntilTime property by calling GetModifiedDocuments and compares it to the system time (which may be the same but may differ).

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim systemTime As NotesDateTime
 Set db = session.CurrentDatabase
 Set systemTime = New NotesDateTime("")
 
 ' Get all modified data documents and system time
 Set dc = db.GetModifiedDocuments
 Call systemTime.SetNow
 
 ' Display times
 Messagebox systemTime.LocalTime & " system" & Chr(10) & _
 dc.UntilTime.LocalTime & " UntilTime",, _
 "System and database times"
End Sub

See Also