2 dates...?

[AlvaroF1]

How to check if a date is between other 2 dates?

For example:

I'd like to see if the date 01/01/2003 is between 15/12/2002 and 15/01/2003.

Thanks!

[darre1]

If dtmMyDate >= #12/15/2002# And dtmMyDate <= #1/15/2003# Then
    MsgBox "yup"
Else
    MsgBox "nope"
End If

[Slaine]

try

If (cdate("01/01/2003") > cdate("15/12/2002")) and (cdate("01/01/2003") < cdate("15/01/2003")) then
    'True
Else
    'False
end if

[ibowlwell]

i dont believe that test will work because it seems as if the dates are in the wrong order.

wouldn't it have to be

"12-15-02" not "15-12-02"

[Slaine]

Or even better, a little function for you.

Private Function bBetweenDates(strDateToCheck As String, strLowerDate As String, strUpperDate As String, Optional bThru As Boolean = False) As Boolean
    
    Select Case bThru
        Case True 'Thru
            If (CDate(strDateToCheck) >= CDate(strLowerDate)) And (CDate(strDateToCheck) <= CDate(strUpperDate)) Then
                bBetweenDates = True
            Else
                bBetweenDates = False
            End If
        Case False 'Between
            If (CDate(strDateToCheck) > CDate(strLowerDate)) And (CDate(strDateToCheck) < CDate(strUpperDate)) Then
                bBetweenDates = True
            Else
                bBetweenDates = False
            End If
    
End Function

[darre1]

Originally posted by ibowlwell
i dont believe that test will work because it seems as if the dates are in the wrong order.

wouldn't it have to be

"12-15-02" not "15-12-02"

it depends what country you're from

more specifically it depends on your computers regional settings.

[AlvaroF1]

It's true. I'm from Brazil and this functions should work fine here too.

Thanks all!

[darre1]

cool.

to get around it format as dd/mmm/yyyy