Date Validation for input box function

[Surf_gecko]

Is there a function that can tell if a string entered using the input box function is a valid date? If not, does anyone have any code to do this?

 

[Rich]

Use a custom form with an input mask

 

[Surf_gecko]

Is there a way to do it without a form using the inputbox function and then testing the string received?

 

[axa]

Surf_gecko,

i suspect you are looking for the IsDate() function...

____________________________________________

Dim strInput As String
Dim dtmInputDate As Date

strInput = InputBox("Enter a value")
If IsDate(strInput) = True Then
    '-- do something with date...

    '-- convert string date to vbdate...
    dtmInputDate = CDate(strInput)
Else
    '-- not a date
End If

____________________________________________

Hope that helps,

axa