<枠外日付> /*表の枠の上に印刷日時を印刷*/ /*年月日を求める*/ let Z1=TODAY; /*現在年月日=西暦 20020512*/ LET V1=NUM$(Z1); /*ＺからV関数へ変換*/ LET V2=LEFT$(V1,4); /*西暦の年 2002を求める*/ LET Z1=VAL(V2); /*計算のためＺ関数へ*/ LET Z1=Z1-1988; /*西暦から平成に変換=年*/ LET V2=NUM$(Z1); /*平成の年*/ LET V3=KMID$(V1,5,2);/*西暦の総ケタ数8のうち左から5ケタから2ケタを求める=月*/ LET Z3=VAL(V3); /*０１月を １月へ*/ LET V3=NUM$(Z3); LET V4=RIGHT$(V1,7); /*西暦の総ケタ数8のうち左から7ケタから2ケタを求める=日*/ LET Z4=VAL(V4); /*０１日を１日へ*/ LET V4=NUM$(Z4); LET V20="印刷日時";LET V21=":";LET V12="平成";LET V13="年";LET V14="月";LET V15="日"; LET V5=V20+V21+V12+V2+V13+V3+V14+V4+V15;/*合成*/ /*時刻を求める*/ LET Z2=NOW;LET V15=NUM$(Z2);/*230130=23時1分30秒*/ LET V15=LEFT$(V15,2);/*6ケタのうち 23時部分を求める*/ LET Z15=VAL(V15) ; LET V15=NUM$(Z15); LET V16=KMID$(V15,3,2);/*分を求める*/ LET Z16=VAL(V16) ; LET V16=NUM$(Z16); LET V17="時";LET V18="分"; LET V19=V15+V17+V16+V18; LET V20=V5+V19; G;1; /*書き込むページを出す*/ NF;J;A; /*表の列を１列にしてしまう*/ MT;LET [T,1]=V20;ESC; /*表の最下行に 印刷日時を書き込む*/ S;G;*; /*書き込んだ画面をサブ画面へ退避*/ CPR;ST;1; /*先ほどの書き込み画面を呼び出し表の枠の上に書き込み*/ STOP;