| No.100-1 | 年月を自動的に加算するロジックは？ |
回答者
木村 良市 |
1999年09月
212号 P22 |
◆ No.100(1999年8月号)の回答-1>
<メイン：売掛金売上金額(月別集計）>の1列目6行に、期初の年月が記入されたものとして、次のオートをRUNします。
| 【プログラム】 | |
| 1 | <年月自動加算> |
|
| 2 | FOR X1=7 TO 17; | /* 記入済み年月行の次から加算 */ |
| 3 | LET Z1=%(RIGHT$([X1-1,1],5))+1; | /* Ｚ変数＝上の行の年月+1 */ |
| 4 | IF Z1<12 THEN GOTO $次年度; | /* 12月の次は＄次年度へ */ |
| 5 | LET V1=NUM$(Z1); |
|
| 6 | IF Z1<10 THEN LET V1="0"+V1; | /* 月の桁数を2桁に揃える */ |
| 7 | LET [X1,1]=LEFT$([X1-1,1],4); | /* 上段月数＋１を記入 */ |
| 8 | CONTINUE; |
|
| 9 | $次年度: LET M(X1,1)=M(X1-1,1)+89; | /* 次年度の1月 */ |
| 10 | NEXT;STOP; |
|
| |