Can not compare dates

[brendasql]

I am trying to do a validation check on dates entered by my users. This date can not be greater than today’s date. The problem is comparing the whole date (MM/DD/YYYY)

Example Values Current date = ‘07/13/2005’
Input Date1 = ‘07/13/2050’
Input Date2 = ‘07/11/2050’

When I compare (InputDate1 to Current Date) I receive my Validation Message, but when I compare (InputDate2 to Current Date) I do not receive any validation error. My code seems to think that InputDate2 is less than the Current Date because the InputDate2(day) is less the Current Date(day).

Here’s my actual code
If FORMATDATE$(rslll(“issue_date”).value) > FORMATDATE$(Now()) then
MSGBOX “The Issue date can not be greater than today’s date.”
ValidationCheck = False
Else
ValidationCheck = True
End If

Has anyone else had this problem? Are there any solutions? I could convert the dates to Julian date, but I hoping that there might be an easier way.

 

[bjd4jc]

Your problem is comparing strings and not dates.

If IsDate(rslll("issue_date").value) Then
    If CDate(rslll("Issue_date").value > Now Then
        MsgBox "The Issue Date can not be greater than today's date."
        ValidationCheck = False
    Else
        ValidationCheck = True
    End If
End If

 

[SkipVought]

Hi,

2050? Did you mean 2005?

Skip,

_{[red]Be advised:[/red]We know Newton's 3 Laws. But did you hear about the [red]FOURTH???[/red]
Only ONE fig per cookie!}

 

[bjd4jc]

There was a syntax error in my post, sorry:

If IsDate(rslll("issue_date").value) Then
    If CDate(rslll("Issue_date").value[b])[/b] > Now Then
        MsgBox "The Issue Date can not be greater than today's date."
        ValidationCheck = False
    Else
        ValidationCheck = True
    End If
End If

Also, I see that your other post in this forum also has to do with data type issues. You may want to read up on data types in the VB Help.

 

[brendasql]

Thanks very much bjd4jc! I did have the IsDate function already in my code but I hadn't used the CDate format before. All I had to do was remove my FormatDate and replace with the CDate. Sorry that I reposted a similiar problem with date comparing, I forgot about that thread 2 years ago. Old age is catching me quickly.

 

[bjd4jc]

Ahh, I didn't even look at the date on that post...