>PARAMETERS pd_date
>
>LOCAL lc_date
>
>IF TYPE("pd_date") = "C"
> pd_date = CTOD(pd_date)
>ENDIF
>
>lc_date = ALLTRIM(STR(YEAR(pd_date))) + "-" + ;
> PADL(ALLTRIM(STR(MONTH(pd_date))), 2, "0") + "-" + ;
> PADL(ALLTRIM(STR(DAY(pd_date))), 2, "0")
>
>RETURN lc_date

I don't have VFP in front of me. Would this work, or something like it?

RETURN TRANSFORM(DTOS(pd_date), "9999-99-99")