The Year() function always returns four digits year.

set century off
ldDate = Date()
lcDate = Strtran( DTOC(ldDate), "/", "")

>I have an old paper-form on which a have to
> fill some blanks were century has only two number
>
> I've tried
>
>set century off
> D = DATE
>
> D_REM = DAY(D)
> M_REM = MONTH(D)
> Y_REM = YEAR (D)
>date_b = alltrim(str(d_rem)) + alltrim(str (M_REM)) + alltrim(str (Y_REM))
> @L,31 SAY data_b
>set century on
>
>Even doing all this it returns the expressio
>
> 07312001
>
> I need to return
>
>
> 073101
>
>
> Whats wrong?
>
>
> TIA