例: UntilTime property

次のエージェントは、getModifiedDocuments を呼び出して UntilTime プロパティを取得し、システム時刻 (同一であるか異なる可能性がある) と比較します。

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