LOTUSSCRIPT /COM/OLE のクラス

例:Lotus Domino Designer と LotusScript 間で時刻を変換する
次の例は、Lotus Domino Designer 文書の DateComposed アイテムを NotesDateTime オブジェクトの LocalTime プロパティに書き込みます。次に、LotusScript の Weekday 関数でこのオブジェクトの LSLocalTime プロパティにアクセスします。

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument
 Dim dateComposedObj As New NotesDateTime("")
 Set uidoc = workspace.CurrentDocument
 Set doc = uidoc.Document
 dateComposed = doc.DateComposed
 dateComposedObj.LSLocalTime = dateComposed(0)
 thisWeekday = Weekday(dateComposedObj.LocalTime)
 Select Case thisWeekday
 Case 1 :stringWeekday = "Sunday"
 Case 2 :stringWeekday = "Monday"
 Case 3 :stringWeekday = "Tuesday"
 Case 4 :stringWeekday = "Wednesday"
 Case 5 :stringWeekday = "Thursday"
 Case 6 :stringWeekday = "Friday"
 Case 7 :stringWeekday = "Saturday"
 End Select
 Messagebox _
 ("This document was composed on a " & stringWeekday)
End Sub

関連項目