日期验证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 = Format（txtDate，“mm / dd / yyyy”）时，请使用小if语句 - 在这种情况下，日期只会转换为8/19/2000

在文本框中，日期基本上变为8/19/2000 - 为什么这样做

Answer 1

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

，这不会起作用