>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!!!!!

Another option might be to use one of the Calendar ActiveX controls that will allow the user to type a date or use a calendar interface to select it. I've got a little app we use to schedule sales reps at trade shows and events, and they really like the approach, since it's easy to visualize weekend/holiday stuff for them with the MonthView control.