【ExcelVBA 関数】Date関数の使い方を教えて！

構文

構文は以下の通りです。

Date(年, 月, 日)

解説

Date関数は、年、月、日を引数として受け取り、それらを組み合わせて日付を作成します。年は4桁の数値で指定し、月と日は1桁または2桁の数値で指定します。たとえば、2023年6月3日を表す場合は、Date(2023, 6, 3)となります。

使い方

Date関数の使い方を具体的に説明します。

1.日付の作成

Date関数を使用して、特定の日付を作成することができます。たとえば、以下のようなコードで2023年6月3日を作成します。

Dim myDate As Date
myDate = Date(2023, 6, 3)

2.現在の日付の取得

Date関数を引数なしで使用すると、現在の日付を取得することができます。次のようにコードを記述します。

Dim today As Date
today = Date()

3.日付の比較

Date関数を使用して、2つの日付を比較することができます。例えば、以下のようなコードで2つの日付を比較します。

Dim date1 As Date
Dim date2 As Date
date1 = Date(2023, 6, 3)
date2 = Date(2023, 6, 4)
If date1 < date2 Then
    MsgBox "date1はdate2よりも前の日付です。"
Else
    MsgBox "date1はdate2よりも後の日付です。"
End If

プログラミング例

以下に、Date関数を使用したプログラミング例を示します。

1.特定の日付を表示する

Sub ShowDate()
    Dim myDate As Date
    myDate = Date(2023, 6, 3)
    MsgBox "日付：" & myDate
End Sub

2.現在の日付を表示する

Sub ShowCurrentDate()
    Dim today As Date
    today = Date()
    MsgBox "現在の日付：" & today
End Sub

3.日付の比較

Sub CompareDates()
    Dim date1 As Date
    Dim date2 As Date
    date1 = Date(2023, 6, 3)
    date2 = Date(2023, 6, 4)
    If date1 < date2 Then
        MsgBox "date1はdate2よりも前の日付です。"
    Else
        MsgBox "date1はdate2よりも後の日付です。"
    End If
End Sub

まとめ

Date関数を使って特定の日付を作成するには、年、月、日を指定して変数に代入します。Date関数を引数なしで使用すると、現在の日付を取得できます。