【ExcelVBA】西暦の下2桁を簡単に取得する方法

はじめに

西暦の下2桁を簡単に取得する方法を見つけたので記事にします。

ソースコード

実装したソースコードは下記です。

Sub test1()
    '年を取得する変数を定義する
    Dim year1 As Variant
    '現在の西暦を取得する
    year1 = Year(Date)
    '現在の西暦を100で割った余りをメッセージボックスに出力する
    MsgBox year1 Mod 100
End Sub

結果

最後に

覚書で投稿しました。