<DATEP>
ACCEPT "印刷対象？",V01;
G/F;%V01/1;LET X01=H;LET V02=L%X01;LET X02=LEN(V02);S;
O;XXX;%(X02-1);;;;ESC;
LET V03="印刷日時 : "
LET V04=LEFT$(NUM$(TODAY),4)+"年";
LET V05=NUM$(VAL(MID$(NUM$(TODAY),5,2)))+"月";
LET V06=NUM$(VAL(RIGHT$(NUM$(TODAY),7)))+"日";
LET V07=NUM$(VAL(LEFT$(NUM$(NOW),2)))+"時";
LET V08=NUM$(VAL(MID$(NUM$(NOW),3,2)))+"分";
LET V09=V03+V04+V05+V06+V07+V08;
LET [H,H]=V09;S;CPR;SH;1;
STOP;
対象表を呼び出し、その表桁数をL(長さ)で調べます。それをサブに移します。印刷日時を書き込む表は1桁小さく作ります。 その表に［TODAY］、［NOW］から読み取った年月日、時分を書き込みます。 その表から日時を書いた行をCPRで対象表の1行目に挿入します。
□
