[ 目次 | 検索 | 発言 | 返信 | 次へ | 前へ | 上へ ]
From: 元山(千葉県)
日付: 00/08/11
時刻: 15:05:38
リモート名: 157.120.221.105
柏木さん/蓑輪さん。アドバイスありがとうございます。
さすがインターネットの質問箱は機動力がありますね。もっとＰＩＰＳユーザーが アクセスしてくれると、もっと素晴らしい「ＰＩＰＳの広場」がそだっていくことでしょうね。早くそうなる日が来ることを願っています。
まさか蓑輪さんからの回答がすぐくるとは思わず、昨晩柏木さんの回答をヒントに自分で 頭をひねってつくってみました。
単細胞なので、ベテランが見ると「なんだ」と思われるかもしれませんが、一応目的は果たしているようです。
<入金日A> LET Z01=N("@入金日"); IF Z01<10000000 THEN GOTO $日付間違; /* 柏木さんからのヒント */ LET Z02=DATENUM(Z01); /* DATENUM でありえない日付チェック */ IF Z02=0 THEN GOTO $日付間違;STOP; $日付間違: DISP COLOR(Y); INPUT [10,02],"入力日が間違っています ｴﾝﾀｰｷｰ ",V30,U(J/AS); DISP [10,02]," "; JUMP @入金日 ;STOP;