DateValue Function

Syntax
DateValue(Date$)
Group
Time/Date
Description
Return the day part of the date encoded as a string.
Parameters Description
Date$ Convert this string value to the day part of date it represents.
See Also
DateSerial, TimeSerial, TimeValue

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