LOTUSSCRIPT /COM/OLE のクラス
例:NotesDateRange クラス
1. 次の例は、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
2. 次の例は、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
3. 次の例は 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
関連項目
NotesDateRange クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集