comparing dates with code

[Jack Sons]

Hi all,

I have this lines of code:

D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), NN, 100)
If D < Date Then Range(Cells(rijrij + 20, kolkol), Cells(rijrij + 20,
kolkol)) = D

If the cursor hoovers over D I see a frame with yellow back ground and in
it:
D = "03 september 2009"
Hoovering over date shows a frame with yellow back ground and in it:
Date = 1-9-2009

The first line of code extracts the last part of a cell, that part is a
date.
I want to compare it with the date of today and if D is a day in the past I
want to color that part of the cell content blue.
I used the second line not for the purpose of putting that date 20 rows
lower, but just to see if the comparison would work. It won't. I tried with
formatting D as well as date, in a n umber of ways, but none was successful.
What code do I need?

Your advice will be appreciated.

Jack Sons
The Netherlands

 

[Luke M]

Using Mid returns a text string (note the quotation marks around the date),
which won't compare properly with a Date (number). Use DateValue to convert
string to date.

If DateValue(D) < Date Then ....

 

[Jack Sons]

Yes, that worked. Thanks Luke. This is my click.

Jack.