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

関連項目