See Also Example
Converts an expression to a Variant of VarType 7 (Date).
Syntax
CVDate(expression)
Remarks
The argument expression must be a string expression or a numeric expression that can be interpreted as a date. The acceptable range for date information is January 1, 100 A.D. (-657434) through December 31, 9999 A.D. (2958465).
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
IsDate Function
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."
Do
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.
End Sub