Function cFecha(tdFecha)
Local aDias(7), aMeses(12)
aDias[1]="Domingo "
aDias[2]="Lunes "
aDias[3]="Martes "
aDias[4]="Miércoles "
aDias[5]="Jueves "
aDias[6]="Viernes "
aDias[7]="Sábado "
aMeses[1]="Enero"
aMeses[2]="Febrero"
aMeses[3]="Marzo"
aMeses[4]="Abril"
aMeses[5]="Mayo"
aMeses[6]="Junio"
aMeses[7]="Julio"
aMeses[8]="Agosto"
aMeses[9]="Setiembre"
aMeses[10]="Octubre"
aMeses[11]="Noviembre"
aMeses[12]="Diciembre"
Return aDias(Dow(tdFecha,1)) + ;
    TRANSFORM(Day(tdFecha),"@L 99") + ;
    " de " + aMeses(Month(tdFecha)) + ;
    " de " + Transform(Year(tdFecha),"@L 9999")
Endfunc