I think at that rate we won't have any users to force 4 digit years, so I think you have a point.

My overall validation:

IF LEN(SUBSTR(ALLTRIM(this.Value),RAT('/',ALLTRIM(this.Value))+1)) < 4
=MESSAGEBOX('Please input a 4 digit year',0,'Invalid Date')
=MESSAGEBOX('Did you get the last message?',0,'Reminder')
=MESSAGEBOX('Are you sure',0,'Another Reminder')
=MESSAGEBOX('ARE YOU ABSOLUTELY SURE?',0,'SURE?')
=MESSAGEBOX('I'm sorry, I don't believe you. GOODBYE',0,'Not Sure')
CANCEL
CLEAR EVENTS
ENDIF

*That'll teach the buggers to make us developers have to prat around!!!!!