See Also Example
Converts an expression to a Variant of VarType 7 (Date).
The argument expression must be a string expression The acceptable range for date information is January 1, 100 A.D. (-657434) through December 31, 9999 A.D. (2958465). or a numeric expression that can be interpreted as a date.
The following table identifies the action that occurs as a result of evaluating expression.
If expression is this type
CVDate takes this action
A numeric expression
Checks range. if not in range, generates a run time error; otherwise converts expression to a date.
A string expression that looks like a date, for example, "1 May 1992 12:00 PM"
Converts expression to a date.
A string expression that looks like a number, for example, "33664"
Converts expression to a number.
Any other string expression
Generates a run-time error.
For string expressions, CVDate recognizes date formats that can be set in the International section of the WIN.INI file using the Microsoft Windows Control Panel. However, CVDate cannot recognize a long date format if it also contains the day-of-the-week string.
If a string expression contains only numbers, CVDate may not be able to determine the correct order of day, month, and year if it is provided in a format other than one of the current WIN.INI date settings.
Note You may be able to use the IsDate function to determine if either a numeric expression or a string expression that looks like a date can actually be converted to a date. However, IsDate cannot determine if a string that looks like a number can be converted to a date.
Note When converting from a number to a date, Visual Basic converts any fractional part of the number to a time of day, starting at midnight.
Data Type Conversion Functions
CVDate Function Example
The example returns a Variant of VarType 7 containing the date serial for your birth date. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim BirthDate, Msg, TestDate ' Declare variables.
Msg = "Enter your birth date using any form you like."
TestDate = InputBox(Msg) ' Get user date.
Loop Until IsDate(TestDate) ' Test for valid date.
BirthDate = CVDate(TestDate) ' Make Variant.
Msg = "The short form of your birth date is " & BirthDate
MsgBox Msg ' Display message.