日期验证 VB6答案

【问题标题】：Date validation VB6日期验证 VB6
【发布时间】：2016-07-09 20:03:47
【问题描述】：

我有一个蒙面的文本框，用户在其中不断输入无效日期 - 当他们保存到 SQL SERVER 时，出现错误。这是我对 _lostFocus 的验证

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

我可以输入一个日期，例如 2000 年 8 月 19 日，然后它就过去了。如何验证它以使其成为有效日期？

发现问题 - 所以这个函数永远不会将其转换为 mm/dd/yyyy 格式 - 它会自动转换为 dd/mm/yyyy。我将如何转换它？

当我在通过小 if 语句运行它之前将其格式化为 txtDate = Format(txtDate , "mm/dd/yyyy") - 在这种情况下，日期只是转换为 8/19/2000

在文本框中，日期基本上更改为 2000 年 8 月 19 日 - 为什么要这样做

【问题讨论】：

标签： validation date vb6

【解决方案1】：

为什么不能使用 If Date.TryParse(txtDate, Date) Then...？如果它成功，那么它是一个有效的日期，否则它不是。 2000 年 8 月 19 日也是一个有效日期，这就是它过去的原因。如果您想以其他形式或其他形式显示它，请使用您想要的格式使用ToString...在文本框中，日期基本上更改为 8/19/2000，只是因为您正在格式化它...还有IsDate(txtDate) 这个如果是 TextBox 则无法使用，请使用 IsDate(txtDate.Text)

【讨论】：