| No.100-2 |
年月を自動的に加算するロジックは？ |
回答者
大岡 満雄 |
1999年09月
212号 P22 |
◆ No.100(1999年8月号)の回答-2
| 【プログラム】 |
| 1 | <MOTO1> /* MDATE を使います */ |
| 2 | FOR X1=H TO T-1; |
| 3 | LET V1=[X1,1]; |
| 4 | LET V2=V1+"01"; |
| 5 | LET Z2=VAL(V2); |
| 6 | LET Z3=MDATE(Z2,1,1); |
| 7 | LET V3=NUM$(Z3); |
| 8 | LET V4=LEFT$(V3,6); |
| 9 | LET [X1+1,1]=V4; |
| 10 | NEXT;STOP; |
| 11 |
|
| 12 | <MOTO2> /* MOTO1を短くしました */ |
| 13 | FOR X1=H TO T-1; |
| 14 | LET [X1+1,1]=LEFT$(NUM$(MDATE(VAL([X1,1]+"01"),1,1)),6); |
| 15 | NEXT;STOP; |
|
|