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