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