Compare two dates

[USAMax]

A1 = 12/30/2012
B1 = 12/30/2012
B2 = 1/5/2013

Can someone tell me why 01/05/2013 is not larger then 12/30/2012?

code
DateOne = Format(Range("A1"), "mm/dd/yyyy"
DateTwo = Format(Range("B1"), "mm/dd/yyyy"
DateThr = Format(Range("B2"), "mm/dd/yyyy"
Chk1 = DateOne <= DateTwo
Chk2 = DateThr > DateTwo
code

Results:
Chk1 = True
Chk2 = False

I have not worked with dates for a long time.
Please, can anyone help?

 

[Akashwani]

Hi Dave,

I'm using UK dates....

Excel Workbook
	A	B	C	D	E	F
1	Date1	Date2	Excel Number	Check1	Check2
2	30/12/2012	30/12/2012	41273	TRUE	TRUE
3		05/01/2013	41279
4
Sheet3

Everything seems fine this side of the pond!!

Ak

 

[Jonmo1]

Because the FORMAT function returns a TEXT string.
So you're doing a greater than / less than comparison on Text Strings, not Numerical Dates.

This will give pretty much same results

x = 100
y = 50
chk1 = x > y '<-Returns True

x = Format(x, "000")
y = Format(y, "00")
chk2 = x > y '<-Returns False

 

[USAMax]

Someone suggested defining them as Double and then reading them in and this worked for two of them.

A1 is actual from from an imported workbook that was exported from another program! What a mess! When I try to import the cell's value into a Double variable I get a type mismatch.

 

[Akashwani]

Looks like I missed an important piece of information when I read that question!!

Ak

 

[Jonmo1]

How about

Dim DateOne As Date, DateTwo As Date, DateThr As Date

DateOne = Range("A1").Value
DateTwo = Range("B1").Value
DateThr = Range("B2").Value

Chk1 = DateOne <= DateTwo
Chk2 = DateThr > DateTwo

 

[USAMax]

How about

Dim DateOne As Date, DateTwo As Date, DateThr As Date

DateOne = Range("A1").Value
DateTwo = Range("B1").Value
DateThr = Range("B2").Value

Chk1 = DateOne <= DateTwo
Chk2 = DateThr > DateTwo

Ya, now that I wrote a complicated a big complicated work-around you come up with this simple solution. LOL

Thank you, this will work much better!

 

[Jonmo1]

Glad to help, thanks for the feedback.