Year Function

DateSerial ないし DateValue 関数による日付データのシリアル変換値を基に、該当する年を返します。

構文:

Year (Number)

戻り値:

整数

パラメーター:

Number: 年情報を得る日付データのシリアル変換値を示す数値表式。

この関数は DateSerial 関数と逆方向の機能を担っており、日付データのシリアル変換値から該当する年を取得します。こうした点は、下記のコードを実行してみると分かりやすいでしょう。

Print Year(DateSerial(1994, 12, 20))

この場合の戻り値は 1994 となります。

例:

Sub ExampleYear
    MsgBox "" & Year(Now) ,64,"Current year"
End Sub