This works for me:

lnyear=VAL(RIGHT(DTOC(DATE()),2))+1
set century ON TO 19 ROLLOVER lnyear

for i=1 to 10
	?ctod('01/01/'+ transform(m.i))
next

>Hi everybody,
>
>I want to be able to type two year digits in the date textbox and treat dates this way: if they less than current year, e.g. 01/01/05 treat them as 2005, otherwise, 1/1/43 treat as 1/1/1943. I could not make it to work, have to admit.
>
>I'm using VFP9.
>
>Can you please help me?
>
>Thanks a lot in advance.