例: IBM Domino Designer と LotusScript 間で時刻を変換する

次の例は、IBM 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