《 USB3.0 の国内正規品のTOSHIBA USBメモリ 》
 | TOSHIBA USBメモリ 32GB USB3.0/2.0対応 キャップ式 ホワイト 1年保証 (国内正規品) UNB-3A032GW |
| 価格: ￥ 1,943 | |
| 東芝(TOSHIBA) |
私の仕事用のＰＣ（Windows機）にはまだ、新元号「令和」対応の更新がきていません。
WordのＶＢエディタを起ち上げ、
Sellection.Range.InsertAfter Format(Date,"ggge年m月d日"）
と書き、これを実行すると、Word文書のカーソル位置に、
「平成31年5月9日」
と出ます。
この文書を受け取った方から即座に、
「平成31年に、5月9日なんて日はないですよ。」
との指摘を受けることになります。
そこで、コードを次のように書き換えました。
Sellection.Range.InsertAfter "令和元年" & Format(Date,"m月d日"）
これで、「令和元年5月9日」と出るようなりました。
今年いっぱい（12月31日まで）は、これでいけます。
来年になるまでには改元更新がなされるはずなので、
来年にはコードをまた元に戻し、Format(Date,"ggge年m月d日"）とすれば、
「令和2年1月3日」
などと出てきます。
Format関数、便利ですね。
Dateの値の表示形式を、自由自在に変えてくれますから。
では、また。
