forms - Visual basic 6：检查日期是否在未来

Question

我有一个用 VB6 制作的表格，我需要检查日期字段以了解未来的日期。

如果输入的日期是将来的日期，则应显示错误消息，如果不是，则应完成验证。

我弄完了：

Private Sub txtDate_Validate(Index As Integer, Cancel As Boolean)
If Not IsDate(txtDate(9).Text) Then 'first I check if the data entered is a date
'error message saying the field needs a valid date
  Cancel = True
        Else
      If (txtDate(9).Text > Date) Then 'now I check if the date entered is bigger than today’s date 
                'error message saying the date is in the future 
                Cancel = True
            Else
               Exit Sub
            End If
       End If 
End If
End Sub

此代码不起作用，因为

txtDate(9).Text > Date

永远是真的

即使我这样做：

Format(txtDate(9).Text, "dd/mm/yyyy") > Date

也总是如此

我能做些什么来解决这个问题？我如何知道输入的日期是否在将来？

谢谢！

Answer 1

使用 CDate 将文本框的内容转换为日期。

如果它有引号，就不能强调这一点，它是一个字符串。