例: NotesDateRange class

次の例は、NotesDateRange オブジェクトの StartDateTime プロパティと EndDateTime プロパティを設定し、Text プロパティの値を表示します。この時点での Text プロパティの値は、以下のようになります。"08/18/96 01:36:22 PM - 08/19/96 01:36:22 PM"

Dim dateRange As NotesDateRange
Dim session As New NotesSession
Dim dateTime1 As New NotesDateTime("08/18/96 01:36:22 PM")
Dim dateTime2 As New NotesDateTime("08/19/96 01:36:22 PM")
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
Messagebox dateRange.Text

次の例は、Text プロパティの値を記述し、続いて (NotesDateTime オブジェクトである) StartDateTime プロパティと EndDateTime プロパティの LocalTime プロパティを表示します。LocalTime プロパティにはこの時点で「08/18/96 01:36:22 PM」と「08/19/96 01:36:22 PM」が入っています。
```
Dim dateRange As NotesDateRange
Dim session As New NotesSession
Set dateRange = session.CreateDateRange()
dateRange.Text= _
"08/18/96 01:36:22 PM - 08/19/96 01:36:22 PM"
Messagebox dateRange.StartDateTime.LocalTime
Messagebox dateRange.EndDateTime.LocalTime
```

次の例は NotesDateRange オブジェクトに値を設定し、EndDateTime プロパティの基となる NotesDateTime オブジェクトを変更します。これによって暗黙的に EndDateTime プロパティも変更されます。

Dim dateRange As NotesDateRange
Dim session As New NotesSession
Dim dateTime1 As New NotesDateTime("Today")
Dim dateTime2 As New NotesDateTime("Tomorrow")
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
Messagebox dateRange.Text
Call dateTime2.AdjustDay(1)
Messagebox dateRange.Text