Somehow I thought that dates were represented as integral values. When I
cast it to a Double it works as expected. Thanks.
"WIlliam Barnes" wrote in message
...
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