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

関連項目