日期驗證VB6

Question

我有一個蒙面的文本框，用戶在無效日期保持滑動 - 當它們保存到SQL SERVER時，出現錯誤。這是我的確認_lostFocus

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

我可以把日期如19/8/2000，它通過。我如何驗證它以便它是有效的日期？

發現問題 - 所以這個功能永遠不會將它轉換爲mm/dd/yyyy格式 - 它會自動轉換爲dd/mm/yyyy。我將如何轉換它？

當我其格式化以txtDate =格式（txtDate中，「mm /日/年」）之前，我運行它trhough小if語句 - 日期簡單地得到在這種情況下，轉換爲2000年8月19日

裏面的文本框的日期基本上變爲8/19/2000 - 爲什麼它這樣做

Answer 1

爲什麼你不能使用如果Date.TryParse(txtDate, Date)然後......？如果成功，那麼這是一個有效的日期，否則它不是。另外19/8/2000是有效的日期，這就是它通過的原因。如果你想以另一種形式或另一種形式使用ToString以你想要的格式顯示......在文本框中，日期基本上變成8/19/2000，因爲你正在格式化它......還有IsDate(txtDate)這不會工作，如果它是一個TextBox，使用IsDate(txtDate.Text)