システム日付が西暦なのかチェックしたい（VB）

VBで、 システム日付が西暦なのかどうかチェックしたいです。 西暦かどうかを確認する方法はありますでしょうか？ 考えた方法としては、 DATE関数でシステム日付を取得し、 その値がFormat（Date, "YYYYMMDD"）と一致するかどうかで 西暦かどうかを判断する処理を考えましたが、 果たしてこれが正しいといえるのか不安です・・・。