LOTUSSCRIPT /COM/OLE のクラス

例:UntilTime プロパティ
次のエージェントは、GetModifiedDocuments を呼び出して UntilTime プロパティを取得し、続いて UntilTime プロパティをシステムの時刻と比較します。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

関連項目