新元号 Access

5／1夜だがまだwin10_1809は新元号和暦表示できない
LANの半分は表示できるのでなんとか業務は可能だがこのままGW明けまでMicrosoft未対応を想定して可及的にパッチみたいな物を・・
うちの業務システムでは和暦表示は　gee/mm/dd　形式だけだから

Public Function FormatZ(paramA As Variant, paramB As Variant)

If IsDate(CStr(paramA)) = True Then
　If paramB Like “gee/mm/dd*” And CDate(paramA) >= CDate(“2019-5-1”) Then
　　FormatZ = Replace(Format(paramA, paramB), “H3”, “R0”)
　Else
　　FormatZ = Format(paramA, paramB)
　End If
Else
　FormatZ = Format(paramA, paramB)
End If

これで良いかな？

とりあえずしばらくしのげれば良いので関数作って
moduleで必要な物はFormatZに変えておく
クエリも令和が出そうなものは捜して置換
フォームのソースがクエリのものがあるはずだが面倒なので現場で対応しよう