Access VBA 二桁の数から四桁の西暦年を出す

Question

Access VBA 二桁の数から四桁の西暦年を出します。
例えば22とあれば、2022(年）とします。
現在"20"を連結しています。
この方法では、システムの設定に合わせて2100年以降の値を得る、
ということができません。
連結しない方法はありますでしょうか。

Dim 数値 As String
数値 = 20
Debug.Print "20" & Right(数値, 2)

以下の方法ではだめでした。

Debug.Print Format(Right(数値, 2), "20@@")　→　220@@となる
Debug.Print Year(Right(数値, 2)) →  1900となる

よろしくお願いします。

(質問追記)

Comments

[yorozuya]

2000を加算するとかって話？

[y_waiwai]

どういう理由で連結ではダメなんでしょうか

[takasima20]

いわゆる2000年問題に類するやつですな。
これは「どうしたら」というより「どうしたいか」つまり仕様決めの問題でしょう。
根本解決には年を4桁で持つしかありません。(背景が分かればなんとかなるかもしれませんが)

[KOZ6.0]

レジストリの
HKEY_CURRENT_USER\Control Panel\International\Calendars\TwoDigitYearMax\1
を見て判断するとか（デフォルトは 2029)

[Usirow]

これもしかして、1998年とかも想定していますか？

Answer 1

結果が字列型で欲しいなら、下記とか。

    Dim 数値 As String
    数値 = "22"
    Debug.Print Format(Right(数値, 2), "\2\0@@")

数値型なら、下記とか。

    Dim 数値 As String
    数値 = "22"
    Debug.Print Val(Right(数値, 2)) + 2000

Comments

[mnbwqz]

ありがとうございました。
文字列・数値両方参考になりました。