Thanks to both of you, I will try it out from there. You both gave me a very head start, I sometimes wonder how come I forget such...
Chuck
>lValid = INLIST(LEN(RTRIM(cVal)),2,4,6) AND LEFT(cVal,1) # " "
>
>>?INLIST(LEN(lcVal), 2, 4, 6) AND PADL(INT(VAL(lcVal)), LEN(lcVal), '0') = lcVal
Today is tomorrow's yesterday.