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

VB6：使用特定格式验证日期

1 个答案: