Date、Time、Now関数

Date 関数は現在のシステム日付を返します。
Time 関数は現在のシステム時刻を返します。
Now 関数は現在のシステム日付・時刻を返します。

Date、Time、Now関数の使用方法

Date
Time
Now

【戻り値】 バリアント型 (内部処理形式 Date の Variant)

Date、Time、Now関数の使用例

日付、時刻の取得

Sub sample_ef031_01()
    Debug.Print "現在の日付：" & Date
    Debug.Print "現在の時刻：" & Time
    Debug.Print "現在の日時：" & Now
End Sub

連続した日付の取得

現在の日付から1週間分の日付を和暦で表示する例です。

Sub sample_ef031_02()
    Dim Date1       As Date
    Dim Date2       As Date
    Dim wDate       As Date

    '現在の日付を設定
    Date1 = Date
    '現在の日付から6日後を設定
    Date2 = Date + 6

    For wDate = Date1 To Date2
        '日付形式を変更して表示
        Debug.Print Format(wDate, "ggge年m月d日(aaa)")
    Next wDate
End Sub

 Format関数 For…Next