タイトル | : Re^3: 令和になって…教えて下さい。 |
投稿日 | : 2019/05/17(Fri) 15:03 |
投稿者 | : 西村@豊田 |
>LET V30=FORM$(NUM$(TODAY-20180000),5); /*今日日付(全角) */
文字列(V30)から、年月日の抽出が原因だと思います。
原文は最初の2文字を抽出していると思われますので、関数KLENで文字数を求め。其々の抽出文字数を計算します。
LET X1=KLEN(V30); /*総文字数*/
LET X2=X1-4; /*年の文字数*/
$年: LET V2=KLEFT$(V30,X2);
$月: LET V3=KMID$(V30,(X2+1),2);
$日: LET V4=KRIGHT$(V30,(X1-X2));
LET V5="令和"+V2+"年"+V3+"月"+V4+"日";
なお、月日の「0」を削除するには
LET V3=FORM$(NUM$(VAL(V3)),5); /*0を削除 */
LET V4=FORM$(NUM$(VAL(V4)),5);
を追加する