DateValue Function

DateValue( dateexpression )

Returns a variant (Date) corresponding to the string date expression that was passed in. dateexpression can be a string or any expression that can represent a date, time or both a date and a time.

Example:

Sub Main()

Dim v As Variant

Dim d As Double

d = Now

Print d

v = DateValue("1959/05/29")

MsgBox (VarType(v))

MsgBox (v)

End Sub