validation - VB6：以某种格式验证日期

Question

我已经使用 Visual Basic 6 构建了一个表单。一切都很好，表单将数据插入我的数据库中，这里根本没有问题。

现在我需要验证日期字段，我需要输入的日期具有以下格式：dd/mm/yyyy

我正在做：

Private Sub txtMyText_Validate(Index As Integer, Cancel As Boolean)
If IsDate(Format$(txtMyText(9).Text, "dd/mm/yyyy")) Or txtMyText(9).Text = "" Then
txtMyText(9).SetFocus
Else
txtMyText(9).SetFocus
MsgBox "Please enter a valid date with this format: dd/mm/yyyy."
End If
End Sub

但是这段代码不起作用。当我输入具有这种格式 dd/mm/yy 的日期时，流程遵循插入功能，我收到错误，因为它不是 dd/mm/yyyy。

你能帮我修复这个代码吗？

非常感谢！

Answer 1

在您插入数据库行的日期字段中使用它：

Format(txtMyText(9).Text, "dd/mm/yyyy") 

这将解决输入为 dd/mm/yy 或 yyyy/mm/dd 的日期

并防止输入整数或字符串而不是日期：

Private Sub txtMyText_Validate(Index As Integer, Cancel As Boolean)
    If Not IsDate(txtMyText(9).Text) Then
    MsgBox "Enter a valid date with this format: dd/mm/yyyy"
    Cancel = True
    End If
End Sub