date conversion question

[WIlliam Barnes]

Why does this code result in a False result?

Public Sub TimeTest()

Dim dte As Date
Dim lng As Long

dte = Now
lng = CLng(dte)

Debug.Print (dte = CDate(lng))

End Sub

 

[Niek Otten]

Because Now includes the fraction which represents the time

--

Kind Regards,

Niek Otten

Microsoft MVP - Excel

 

[Andy Wiggins]

A date also has decimal places that represent the time.
By converting it to a LONG, the value after the decimal point disappears.
When you test "dte" against "lng" you are comparing, say, 38047.25 against
38047.
By converting "lng" back to a date you get 38047, that is to say 29/02/2004
00:00:00 (or midnight).

That is to say, by losing the decimal places in the first conversion you
have created a different figure, and so when you do the final comparison,
you get False.

--
Regards
Andy Wiggins
www.BygSoftware.com
Home of "Save and BackUp",
"The Excel Auditor" and "Byg Tools for VBA"

 

[WIlliam Barnes]

Somehow I thought that dates were represented as integral values. When I
cast it to a Double it works as expected. Thanks.

 

[Bob Phillips]

William,

The reason is because Now returns the date and time, so you get something
like 29/02/2004 18:45:32, whereas CDate(lng) returns a pure date, like
29/02/2004. They are not the same, so you get False.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)