FUNCTION cdowbr LPARAMETERS tdDate LOCAL laDowName[7] laDowName[1] = "Domingo" laDowName[2] = "Segunda-Feira" laDowName[3] = "Terça-Feira" laDowName[4] = "Quarta-Feira" laDowName[5] = "Quinta-Feira" laDowName[6] = "Sexta-Feira" laDowName[7] = "Sábado" RETURN laDowName[DOW(tdDate)]If you've VFP7 or later it could be even shorter.
FUNCTION cdowbr LPARAMETERS tdDate LOCAL laDowName[7] ALINES(laDowName, "Domingo,Segunda-Feira,Terça-Feira,Quarta-Feira,Quinta-Feira,Sexta-Feira,Sábado", .T., ",") RETURN laDowName[DOW(tdDate)]>VFP has only English day of the week