例: AdjustHour method

次のスクリプトは、NotesDateTime オブジェクトの値に 2 時間を加算します。その結果、このオブジェクトの値は 04/16/96 07:36:00 PM になります。
```
Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustHour( 2 )
```
次のスクリプトは、NotesDateTime オブジェクトの値から 2 時間を減算します。その結果、このオブジェクトの値は 04/16/96 03:36:00 PM になります。
```
Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustHour( -2 )
```
次のスクリプトは、NotesDateTime オブジェクトの値に 10 時間を加算します。日付が翌日に変わり、このオブジェクトの値は 04/17/96 03:36:00 AM になります。
```
Dim dateTime As New NotesDateTime( "04/16/96 05:36 PM" )
Call dateTime.AdjustHour( 10 )
```
次のスクリプトは、今日の日付が設定される NotesDateTime オブジェクトを作成し、作成したオブジェクトの値に 24 時間を加算しようとします。日時には時刻の部分が含まれませんが、24 時間は 1 日の経過を表すため、日付の部分が 1 日増えます。
```
Dim dateTime As New NotesDateTime( "Today" )
Call dateTime.AdjustHour( 24 )
```