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 )