日付・時刻を取得(ゲット)する

以下は、日付・時刻を取得し、メッセージボックスに表示します。

・ソース

Sub Click(Source As Button)
 Dim dt As New NotesDateTime("Today")
 Call dt.SetNow
 Messagebox dt.LocalTime
End Sub

・実行結果

以下は、日付を取得し、メッセージボックスに表示します。

・ソース

Sub Click(Source As Button)
 Dim dt As New NotesDateTime("Today")
 Messagebox dt.LocalTime
End Sub

・実行結果

以上