VBAで年、月、日を取得する（Year、Month、Day）

Year、Month、Day

Year関数は引数日付の年を取得します。
Month関数は引数日付の月を取得します。
Day関数は引数日付の日を取得します。

これらの関数は取得しか出来ません。関数の実行結果はInteger型の形式のVariant型で返却されます。

構文

Function Year(Date) As Integer
Function Month(Date) As Integer
Function Day(Date) As Integer

Function Year(Date) As Integer

Function Month(Date) As Integer

Function Day(Date) As Integer

いずれの関数も引数に日付を指定する必要があります。

日付は文字列、Date型など、日付と認識できるものであれば許容されます。

日付と認識できない場合は実行時エラー13が発生します。以下は引数不正でエラーになるサンプルです。引数に数値で日付を指定していますが日付とはみなされずエラーになります。

Sub YearErrorTest()
    Dim y As Integer
    
    y = Year(20170831)
End Sub

Sub YearErrorTest()

Dim y As Integer

y = Year(20170831)

End Sub

サンプルコード

現在の年月日、および、文字列指定の年月日を出力するサンプルです。

Sub YearMonthDayTest()
    Dim y As Integer
    Dim m As Integer
    Dim d As Integer
    
    '// 引数：Date型
    y = Year(Now)
    m = Month(Now)
    d = Day(Now)
    Debug.Print "現在の年：" & y
    Debug.Print "現在の月：" & m
    Debug.Print "現在の日：" & d
    
    '// 引数：文字列
    y = Year("2017/11/30")
    m = Month("2017/11/30")
    d = Day("2017/11/30")
    Debug.Print "文字列引数の年：" & y
    Debug.Print "文字列引数の月：" & m
    Debug.Print "文字列引数の日：" & d
End Sub

Sub YearMonthDayTest()

Dim y As Integer

Dim m As Integer

Dim d As Integer

'// 引数：Date型

y = Year(Now)

m = Month(Now)

d = Day(Now)

Debug.Print "現在の年：" & y

Debug.Print "現在の月：" & m

Debug.Print "現在の日：" & d

'// 引数：文字列

y = Year("2017/11/30")

m = Month("2017/11/30")

d = Day("2017/11/30")

Debug.Print "文字列引数の年：" & y

Debug.Print "文字列引数の月：" & m

Debug.Print "文字列引数の日：" & d

End Sub

実行結果

現在の年：2017
現在の月：11
現在の日：30
文字列引数の年：2017
文字列引数の月：11
文字列引数の日：30

現在の年：2017

現在の月：11

現在の日：30

文字列引数の年：2017

文字列引数の月：11

文字列引数の日：30

Year、Month、Day

構文

サンプルコード

関連記事