Year関数

構文
Year(date)
引数dateには、日付を表す任意の値、数式、文字列式を指定します。

解説
引数dateで指定された日付の西暦年を４桁で返します。

サンプル
次の例は、ユーザーが入力した日付の年を表示します。

Sub Sample()
    Dim userdate As String
    userdate = InputBox("日付を入力してください（yy/mm/dd）")
    If IsDate(userdate) Then
        MsgBox Year(userdate)
    End If
End Sub