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

関連項目

TimeOnly プロパティ

用語集