例: SetNow method

次のスクリプトはデフォルトの日付を持つ NotesDateTime オブジェクトを新規作成して、現在の日時に再設定します。例えば SetNow メソッドが 1996 年の 8 月 15 日の午後 8:04:04 に実行される場合、dateTime は 08/15/96 08:04:04 PM を表します。
```
Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
```
次のスクリプトは文書の PurgeDate アイテムを現在から 2 ヵ月後の日時に設定します。例えば SetNow メソッドが 1996 年の 8 月 15 日の午後 8:04:04 に実行された場合、PurgeDate には 10/15/96 8:04:04 PM が設定されます。
```
Dim doc As NotesDocument
'...set value of doc...
Dim dateTime As New NotesDateTime( "" )
Call dateTime.SetNow
Call dateTime.AdjustMonth( 2 )
Set doc.PurgeDate = dateTime
Call doc.Save( True, True )
```