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 クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集