I wrote a little sub, which checks if an given date is a real date. Then it gives back 1, otherwise it gives back 2 or more (described in Rem-section at the end of the code). It works for dates in german format, but I think, it is not really hard, to change it for other formats, e.g. american date format.
Have fun with it,
Greets from Germany,