日: 2019年5月1日

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

先月から気になっていたのですがWSUSサーバで新元号対応更新プログラムのKB4493473がインストール済みまたは該当なしになっていたのですがインストールはされてません
今日確認するとやはり新元号表示不能です
マニュアルで対応必要でした　以下参照
https://sccm.jp/2019/04/27/post-1484/

windows10　1809　は今日5/1調べたけどまだ未対応のようです
windows10でupdate最新状態にしておけば大丈夫とあちこちで見るけど
最新状態だと1809になってるはずなのでほとんどのPCが表示できない
ということになってないのかなあ