質問: 特定の値をチェックしたいのですが... vb2005、db2環境です。 日付の値を取得する処理があるのですが、稀に通常ではあり得ない 値が入っていることがあります。 例えば、yyyymmdd形式にするべきところに、20070100だとか、 000000だとか、20007/001/01だとか。 パターンとしては、下二桁が00になっているもの、桁数が8桁より 多いもの、の2つがほとんどなのですが、このような値を取得した 場合は、2007/01/01としたいと思っています。 まず条件式を作らなければならないと思うのですが、この、下二桁は 0で他はランダムである値と、8桁より多い数というものは、どのように 判別させれば良いのでしょうか? 出来ましたら、サンプルコードを交えて教えていただけないでしょうか? よろしくお願いします。
回答: テキストボックス1つ、コマンドボタン1つ テキストのmaxlengthを10 2007/8/12式の/入りの入力方法を強制ルールとする。 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click dim s dim t s = textbox1.text t = split(s, "/") if ubound(t) <> 2 then msgbox("err") exit sub end if msgbox(s) if isdate(s) then msgbox("ok") else msgbox("no") end if end sub これで、変な日付データの入力は防げそうですが。