DateValue Function
Syntax DateValue(Date$)
Group Time/Date
Description Return the day part of the date encoded as a string.
Parameter Description
Date$ Convert this string value to the day part of date it represents.
See Also DateSerial, TimeSerial, TimeValue.
Example            
'#Language 
"WWB-COM"
Sub Main
    
Debug.Print DateValue("1/1/2000 12:00:01 
AM")
        '1/1/2000
EndSub