VB中的日期等于或小于x

Question

我原本以为Form!MyForm!Date >= #1/12/2010#会完成这个伎俩，但它似乎没有起作用。

有人能说清楚我做错了吗

完整代码：

If (Forms!MyForm!DateSubmitted >= #1/01/2012#) Then
MsgBox ("Past due date")
End If

Answer 1

使用CDate功能，至少确保您要比较两个日期：

If (CDate(Forms!MyForm!DateSubmitted) >= #1/1/2012#) Then
    MsgBox ("Past due date")
End If

如果您的输入字符串不是有效的日期字符串，您将收到类型错误，但您将知道您没有将日期类型与日期进行比较。

另外，请检查您比较的有效日期：

Form!MyForm!Date >= #1/12/2010# '2010

VS

Forms!MyForm!DateSubmitted >= #1/01/2012# '2012