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に変えておく
クエリも令和が出そうなものは捜して置換
フォームのソースがクエリのものがあるはずだが面倒なので現場で対応しよう