Ａｃｃｅｓｓの和暦変換＋文字置換について

質問

DBに生年月日が”YYYYMMDD"という形式でCHAR型で格納されています。
これを和暦に変換し、更に明治→1、大正→3、昭和→5、平成→6と文字を置き換えます。
（例）20080401の場合→6200401

これをAccessのクエリで実行するなら、どのような書き方になりますでしょうか。

よろしくお願いいたします。

回答No.1

noname#60992 · ベストアンサー

いくつか方法はあると思いますが、
一番簡単そうなのは、以下のようなファンクションをつくりクエリから呼び出すことです。

Function ConvtJDate(Odate) As String
ConvtJDate = Format(DateSerial(Left(Odate, 4), Mid(Odate, 5, 2), Right(Odate, 2)), "geemmdd")
ConvtJDate = Replace(ConvtJDate, "H", "6")
ConvtJDate = Replace(ConvtJDate, "S", "5")
ConvtJDate = Replace(ConvtJDate, "T", "3")
ConvtJDate = Replace(ConvtJDate, "M", "1")
End Function

お礼

なるほど。ファンクションを作るというやり方もありますね。
VBAの知識が全くないので、少し勉強しながら
作ってみます。