| タイトル | ： Re^5: 令和になって…教えて下さい。 |
| 投稿日 | ： 2019/05/19(Sun) 10:01 |
| 投稿者 | ： 西村@豊田 |
> <市売代金精算書印刷> 【 Ver.01.01 20080811 】
1.日のデータを次の様に直してください
$日:LET V04=KRIGHT$(V30,7); /*7文字目から*/
2.年を西暦から和暦に変換します
LET V02=FORM$((NUM$(VAL(V2)-2018)),5);/*和暦全角*/
3.月、日の"05"の「0」を消したいならば次の式を加える
$0削除:
LET V03=FORM$(NUM$(VAL(V3)),5); /*月の0を削除 */
LET V04=FORM$(NUM$(VAL(V4)),5); /*日の0を削除*/
> LET V5="令和"+V2+"年"+V3+"月"+V4+"日";
> $題字: GOSUB 精算書題字印刷;
>LET X1=KLEN(V30); /*総文字数*/
>LET X2=X1-4; /*年の文字数*/
>『LET X2=X1-4;』の分の指示ですが、わかりません
>LET V30=FORM$(NUM$(TODAY-20180000),5); /*今日日付(全角) */
の式でV30="10518" となりますので、月日の合計桁数４ケタを総文字数から除算して年の文字数を出しています。
(X1-4=5-4=1) 年は１桁
なお、令和は当分１桁ですが、令和１０年以降にも対応させて式で表示しています (原文では平成の２桁に固定)。