例: DateOnly property (NotesDateTime - LotusScript)

次のスクリプトは現在の日付と時刻を 2 行に表示します。

Sub Initialize
  Dim dateTime As New NotesDateTime( "" )
  dateTime.LSLocalTime = Now
  Messagebox _
  "Date:   " & dateTime.DateOnly & Chr(10) & _
  "Time:   " & dateTime.TimeOnly,, "Current date and time"
End Sub