It seems to work in 6.0, but tell me why you put the "+ 1" and you dont just say:

lValid = !empty(ctod('DateString'))

Thank You
Dim