Tracy,

What is this function supposed to do?

>Any ideas how to do the following without going over 128 in VFP? What about accessing pre-existing data in tables that is already stored using this method in FPD26a?
>

>valyear=1985
>*PARAMETER valyear
>
>PRIVATE xreturn, stryear
>xreturn = '  '
>
>*---Store with the new method if the century is included
>
>IF TYPE('valyear') = 'N'
>	stryear = TRANS(valyear,'@L 9999')
>
>	IF LEFT(stryear,2) = '00'
>		xreturn = TRANS(valyear,"99")
>	ELSE
>		xreturn = CHR(VAL(LEFT(stryear,2))+58) + CHR(VAL(RIGHT(stryear,2))+33)
>	ENDIF
>ENDIF
>
>RETURN xreturn
>

>TIA,
>Tracy