Test a Date Field

[zp162002]

Hello everyone. I would like to test a field to see if it contains a valid date. The format at this time does not matter - I only want to make sure it is a valid date. Any ideas how I can code this? Thanks in advance.

 

[onpnt]

on error resume next

cDate(request.form("date field&quot


if err.number > 0 Then
response.write "data type error!"
err.clear
end if



_____________________________________________________________________

_{Hakuna matata!!}

 

[zp162002]

Thanks onpnt.

 

[onpnt]

hmm.. tried it and it doesn't work but I've done this in the past.

typo in the err.number <> 0
not > 0

_____________________________________________________________________

_{Hakuna matata!!}

 

[onpnt]

I remember. here's the adjustment
Dim myDate
Dim myString : myString = Date()
Response.write cStr(myString) & &quot;<br>&quot;

on error resume next


myDate = cDate(myString)


if err.number <> 0 Then
response.write &quot;data type error!<br>&quot;
response.write err.description & &quot;<br>&quot;
err.clear
else
response.write &quot;Date passed!<br>&quot;
end if

forgot about the automation error

_____________________________________________________________________

_{Hakuna matata!!}

 

[zp162002]

Thanks for your help once again Onpnt.

 

[onpnt]

anytime!

_____________________________________________________________________

_{Hakuna matata!!}