VBA 日期大于小于表达式错误

Question

嗨，我有以下代码

Public Function checkDate(ByVal SomeDate As String) As Integer
If CDate("Sep 24 2012") >= CDate(SomeDate) Then
     Return 1
End If
Return 0
End Function

当我调用 checkDate（"2012 年 1 月 1 日"）或早于 9 月 24 日的任何日期时，我返回 1。

但是，当我致电checkDate（"Sep 25 2012"）或9月24日之后的任何其他日期时，我会收到 #error 返回。

有人可以解释为什么会发生这种情况而不是 0 返回值吗？

Answer 1

VBA 不使用 Return

Public Function checkDate(ByVal SomeDate As String) As Integer
    If CDate("Sep 24 2012") >= CDate(SomeDate) Then
        checkDate = 1
    Else
        checkDate = 0
    End If
End Function

Answer 2

这段代码在 VBA 中对我有用。我还没有检查一下在 SSRS 中工作。

Public Function checkDate(ByVal SomeDate As String) As Integer
Dim dteCheck As Date
Dim dteSomeDate As Date
dteCheck = CDate("Sep 24 2012")
dteSomeDate = CDate(SomeDate)
If dteCheck >= dteSomeDate Then
    checkDate = 1
Else
    checkDate = 0
End If
End Function