FoxPro/Visual FoxPro - pasar a var solo dos digitos del año

Me pueden decir como obtengo los dos ultimos digitos del año y pasarlo a una variable desde un textbox con fecha ingresada...

y tambien como paso a una variable dos ceros antes de un numero positivo (001)

Gracias

? SUBSTR(STR(year(date())),3,2)

x=1
? PADL(x,3,'0')

Hola :
dFecha = thisform.txtfecha.value && si tipo de dado es fecha
ó dFecha = ctod(thisform.txtfecha.value) && si tipo de dado es caracter

ult_dig = substr(alltrim(str(year(dFecha))),3,2)

Espero te sirva....

Ya quedo listo, gracias amigos....me sirvió de mucho

Saludos►