Examples: TimeOnly property

This script displays the current date and time on two lines.

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