| 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,"日付が間違っています。"))
|
