LOTUSSCRIPT /COM/OLE のクラス

例:SetAnyDate と SetAnyTime メソッド
次のエージェントは、現在の日付と時刻を設定した後、日付を任意の日付に、時刻を任意の時刻にします。

Sub Initialize
 Dim dt As New NotesDateTime("")
 REM Set date and time to now
 Call dt.SetNow
 Messagebox dt.LocalTime,, "Date and time set to now"
 REM Set date part to any date
 Call dt.SetAnyDate
 Messagebox dt.LocalTime,, "Date set to any date"
 REM set time part to any time
 Call dt.SetAnyTime
 Messagebox dt.LocalTime,, "Date and time set to any date"
End Sub

関連項目