| 2008/08/02(Sat) 20:27:41 編集(投稿者)
たゆーさんこんにちは日付以外の文字列が入ったところが エラーです。文字列で作業項目を作って下さい。
#計算(#代入(&STR,#S(#trim(#半角([日付文字列]),4),",","ξ")) ,#代入(&STR,#S(&STR,2,#sstr(&STR,1,2))) ,#代入(&STR,#S(&STR,3,#sstr(&STR,3,#文字位置(&STR,"年")-1-2))) ,#代入(&STR,#S(&STR,4,#sstr(&STR ,#文字位置(&STR,"年")+1,#文字位置(&STR,"月")-1-#文字位置(&STR,"年")))) ,#代入(&STR,#S(&STR,5,#sstr(&STR ,#文字位置(&STR,"月")+1,#文字位置(&STR,"日")-1-#文字位置(&STR,"月")))) ,#cond( .not (#sstr(&STR,1,2)="昭和".or #sstr(&STR,1,2)="平成") ,"元号が間違っています" ,#文字位置(&STR,"年")<1,"年の記入漏れです。" ,#文字位置(&STR,"月")<1,"月の記入漏れです。" ,#文字位置(&STR,"日")<1,"日の記入漏れです。" ,#文字位置(&STR,"月")-#文字位置(&STR,"年")<1 ,"月の位置が規定外です。" ,#文字位置(&STR,"元年")>0,"元年は禁止です" ,#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S(#S( &STR,"平成",""),"昭和",""),"年",""),"月",""),"日","") ,"1",""),"2",""),"3",""),"4",""),"5","") ,"6",""),"7",""),"8",""),"9",""),"0",""),",","")<>"" ,"想定外の文字列が入力されています。" ,#num(#対応文字列(&STR,3))>64 .and #sstr(&STR,1,2)="昭和" ,"昭和は64年迄にして下さい。" ,#num(#対応文字列(&STR,3))>64,"年が規定以上です。" ,#num(#対応文字列(&STR,3))<1,"年の入力がありません。" ,#num(#対応文字列(&STR,4))>12,"月は12月迄にして下さい。" ,#num(#対応文字列(&STR,4))<1,"月が入力されていません。" ,#num(#対応文字列(&STR,5))>31,"日は31日迄にして下さい。" ,#num(#対応文字列(&STR,5))<1,"日が入力されていません。" ,#日付(#対応文字列(&STR,2) +#str(#num(#対応文字列(&STR,3)),2) +"年"+#str(#num(#対応文字列(&STR,4)),2) +"月"+#str(#num(#対応文字列(&STR,5)),2)+"日",1) = #str(#西暦年(#対応文字列(&STR,2) +#str(#num(#対応文字列(&STR,3)),2))) +"-"+#str(#num(#対応文字列(&STR,4)),2) +"-"+#str(#num(#対応文字列(&STR,5)),2) ,#cond(#sstr(#tistr(#日時値(#sstr(&STR,1,2) +#str(#num(#対応文字列(&STR,3))) +"年"+#str(#num(#対応文字列(&STR,4))) +"月"+#str(#num(#対応文字列(&STR,5)))+"日") ,3,1,2),1,2)=#sstr(&STR,1,2), #tistr(#日時値(#sstr(&STR,1,2) +#str(#num(#対応文字列(&STR,3))) +"年"+#str(#num(#対応文字列(&STR,4))) +"月"+#str(#num(#対応文字列(&STR,5)))+"日") ,3,1,2),1,"元号と日付の不一致") ,1,"日付が間違っています。"))
|