日付のバリデーションVB6

Question

ユーザーが無効な日付に滑り続けているマスクされたテキストボックスがあります.SQL SERVERに保存するとエラーが発生します。これは私が、このような19/8/2000、それが通過する際に、日付に置くことができます_lostFocus

If txtDate = "" Then 
    Exit Function 
ElseIf Not IsDate(txtDate) Then 
    Exit Function 
End If 

の私の検証です。有効な日付になるようにどのように検証できますか？

問題が見つかりました - この機能はmm/dd/yyyy形式に変換されません。自動的にdd/mm/yyyyに変換されます。どのように私はそれを変換するだろうか？

文の場合、私は少しtrhoughそれを実行する前に、私はtxtDate =フォーマット（txtDate、「YYYY/MM/DD」）にそれをフォーマットする - 日付が単にその場合の2000年8月19日

に変換されます

テキストボックスの中で日付は基本的に2000年8月19日に変更されます - それはなぜですかそれは何ですか？

Answer 1

どうして使えないのですか？Date.TryParse(txtDate, Date) ...？それが成功すればそれは有効な日付です。それ以外の場合は有効ではありません。また、19/8/2000は有効な日付なので、それが合格する理由です。別の形式または別の形式でそれを表示したい場合は、希望の形式のToStringを使用してください。テキストボックスの内部では、日付は基本的に8/19/2000に変更されます。単に書式設定しているためです... IsDate(txtDate)テキストボックス、使用IsDate(txtDate.Text)