∥一括処理部品集１∥kijitu.html 《戻る》 《玄関へ》
《 年月、期日のキー入力を設定する 》
【内容】
年月や期日をキー入力する場合、入力ミスなどのチェックを
おこないます。
【用例】
名札 年月キー入力
条件 (&キ年="") &キ年=&NEN ①
繰り返し
キー入力 (15,41),プロンプト＝＃連結（&ｼｽﾃﾑ名,"対象レコードの西暦年は？
") \
,モード=半角,上書き=する,初期値＝&キ年,終了状態=&ESC,&キ年
キー入力 (15,41),プロンプト＝＃連結（&ｼｽﾃﾑ名,"対象レコードは何月？<1～12> "
)\
,モード=半角,上書き=する,初期値＝&キ月,終了状態=&ESC,&キ月
条件 (&ESC=0) 分岐 START
条件 (&キ年>1990 .and &キ年<2100
.and &キ月>0 .and &キ月<13) 繰り返し中止 ②
繰り返し終了
手続き終了
＊－－－－－－－－－－－－－－－－－－－－－－－－－－
名札 期日キー入力
繰り返し
キー入力 (15,41),プロンプト＝＃連結（&ｼｽﾃﾑ名,"対象レコードは何日から？
") \
,モード=半角,上書き=する,初期値＝&キ日,終了状態=&ESC,&キ日
キー入力 (15,41),プロンプト＝＃連結（&ｼｽﾃﾑ名,"対象レコードは何日まで？
") \
,モード=半角,上書き=する,初期値＝&キ日２,終了状態=&ESC,&キ日２
条件 (&ESC=0) 分岐 START
分岐 ((&キ月=4 .or &キ月=6
.or &キ月=9 .or &キ月=11) .and &キ日>30) 期日キー入力 ③
分岐 ((&キ月=4 .or &キ月=6
.or &キ月=9 .or &キ月=11) .and &キ日２>30) 期日キー入力
条件 ((#MOD(&NEN,4)<>0
.or #MOD(&NEN,400)<>0) .and &キ月=2
.and &キ日>28) \ ④
分岐 期日キー入力
条件 ((#MOD(&NEN,4)<>0
.or #MOD(&NEN,400)<>0) .and &キ月=2
.and &キ日２>28) \
分岐 期日キー入力
条件 (#MOD(&NEN,4)=0 .and &キ月=2
.and &キ日>29) 分岐 期日キー入力
条件 (#MOD(&NEN,4)=0 .and &キ月=2
.and &キ日２>29) 分岐 期日キー入力
条件 (&キ日>0 .and &キ日<32
.and &キ日２>0 .and &キ日２<32
.and &キ日=<&キ日２) 繰り返し中止
繰り返し終了
手続き終了
【解説】
① 初期値を設定して、入力の省力化をはかります。
② 年月の使用範囲を設定します。
③ ３０日の月についてのチェックです。
④ 閏年・閏月についてのチェックです。