DateValue Function

Syntax:
DateValue(Date$)
Group: Math
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:

Sub Main
Debug.Print DateValue("1/1/2000 12:00:01 AM")
'1/1/2000
End Sub