例: CurrentCalendarDateTime property

次の［カレンダー］ビューのアクションの例は、現在選択されている地域の日付と時刻を表示します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Messagebox workspace.CurrentCalendarDateTime,, _
  "Date and time for the current region"
End Sub