Year、Month、Day関数

Year 関数は日付を表す任意の値から年を返します。
Month 関数は日付を表す任意の値から月（1～12）を返します。
Day 関数は日付を表す任意の値から日（1～31）を返します。

Year、Month、Day関数の使用方法

Year (Date)
Month(Date)
Day (Date)

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

Year、Month、Day関数の使用例

日付から年・月・日を取得する例です。

Sub sample_ef032_01()
    '引数にDate関数からのバリアント型を指定
    Debug.Print "日付：" & Date
    Debug.Print "年：" & Year(Date)
    Debug.Print "月：" & Month(Date)
    Debug.Print "日：" & Day(Date)

    '引数に文字列型を指定
    Dim strDate     As String
    strDate = "2013/4/1"
    Debug.Print "日付：" & strDate
    Debug.Print "年：" & Year(strDate)
    Debug.Print "月：" & Month(strDate)
    Debug.Print "日：" & Day(strDate)
End Sub