IntraCell Date Comparison

[poorwallace]

Hello all....I've got a question about comparing 2 dates. The problem is that the date is contained within a cell in this format:

NNGGQ 12/21/2005

I'm trying to compare the date in the right of the cell to the date in another cell using this:

If Right(Cells(4, 4), 8) = Range("G1") Then
    MsgBox "It's today!"
ElseIf Right(Cells(4, 4), 8) <> Range("G1") Then
    MsgBox "It's not today!"
End If

From the immediate window, I'm getting this:

?Right(Cells(4, 4), 8)
12/21/05
?Range("G1")
12/21/2005

I suspect the problem is that Range G1 is formatted as a date, while the Right(Cells...) bit is returning text. I could create another cell to output the results of the Right(Cells), but I'd like to see if anyone has an easier solution.

Thanks

 

[Barrie Davidson]

If CDate(Right(Cells(4, 4), 8)) = Range("G1") Then
    MsgBox "It's today!"
Else
    MsgBox "It's not today!"
End If

Regards,

 

[poorwallace]

Barrie,

You've helped me again! What just happened? I'm not familiar with CDate...

Thanks!

 

[Scott Huish]

Why are you pulling 8 characters when your date is in a 10 character format?

Sub test()
If DateValue(Right(Range("D4"), 10)) = Range("G1") Then
    MsgBox "It's today!"
Else
    MsgBox "It's not today!"
End If
End Sub

 

[Norie]

Try using DateValue to convert to a 'real' date.

 

[Barrie Davidson]

Barrie,

You've helped me again! What just happened? I'm not familiar with CDate...

Thanks!

Cdate will attempt to convert a string variable to a date variable.

Regards,