AccessVBA 西暦の年と和暦の年の変換

Question

AccessVBA 西暦と和暦、双方の年を変換する方法、
テキストボックス１に西暦年を入れた場合に和暦にする方法は
分かりました。この方法では西暦の方に年に加えて月日も設定していますが、
月日を設定しない方法はありますでしょうか。
=Format(DateSerial([テキスト0],1,1),"ggge\年")

また、テキストボックス1に和暦の年のみを入れて西暦にする方法が
分かりません。和暦の年は今年までは令和、それ以上大きな数値であれば
平成と考えます。よろしくお願いします。

Answer 1

テキストボックスのコントロールソースに設定する式を知りたいということでしょうか。
下記の式で西暦の年に変換できます。

=Format(IIf(Year(Date())-2018<Val([テキスト0]),"H","R")  & [テキスト0] & "/1/1"  ,"yyyy\年")

テキスト0=3 の場合 2021年
テキスト0=4 の場合 1992年
となります。

単純に下記でもいいですね。

=Val(テキスト0)+IIf(Year(Date())-2018<Val(テキスト0),1988,2018) & "\年"

Comments

[mnbwqz]

変換できました。ありがとうございました。

Answer 2

和暦などを西暦に変換するには**CDate()**を使用するのが簡単です。
データ型変換関数
入力項目を日付書式の文字列として編集し、CDate()によって変換すれば良いかと思います。
日常使用する書式であれば、殆どエラー無く変換されます。

CDate("R03/10/10")
CDate("令03/10/10")

和暦の年は今年までは令和、それ以上大きな数値であれば平成と考えます。

この部分は、日付書式の文字列を生成する場合の分岐で行えば良いかと思います。

Comments

[mnbwqz]

変換できました。ありがとうございました。