关于用vba实现日期比较

access_lerner

我想用下面这段代码完成在某段日期范围内查找数据的功能。 但是不知为什么无法实现。 请高手帮忙看一下。 谢谢！[em17][em17]



    If IsDate(Me.OpenedDateFrom) Then

        ' Add it to the predicate - exact

        strWhere = strWhere & " AND " & "Issues.[Opened Date] >= " & GetDateFilter(Me.OpenedDateFrom)

    ElseIf Nz(Me.OpenedDateFrom) <> "" Then

        strError = cInvalidDateError

    End If

   

    ' If Opened Date To

    If IsDate(Me.OpenedDateTo) Then

        ' Add it to the predicate - exact

        strWhere = strWhere & " AND " & "Issues.[Opened Date] <= " & GetDateFilter(Me.OpenedDateTo)

    ElseIf Nz(Me.OpenedDateTo) <> "" Then

        strError = cInvalidDateError

    End If

-----------------------------------------------------------------------------------------

Function GetDateFilter(dtDate As Date) As String

    ' Date filters must be in MM/DD/YYYY format

    GetDateFilter = "#" & Format(dtDate, "MM/DD/YYYY hh:mm:ss AM/PM") & "#"

End Function

海狸先生

最好把完整的代码或文件发上来