Convert a date/time to a numerical value

Used for date/time comparisons, use portions of the code below to covert your date/time values.

NowValue = Cstr( Now ) 

'Extracts just the date value from Now
Dim DateOnly As Variant
DateOnly = Datevalue( Now )
'Converts the dateonly value to a Double value
Dim datedbl As Double
datedbl = Cdbl( DateOnly )
'Converts the value of Now to a Double value
Dim datetimedbl As Double
datetimedbl = Cdbl( Now )

Posted by fbrefere001 on Monday March 25, 2002