Fecha a palabras

Funciones que manejan fechas, útiles cuando usamos un runtime diferente al español.

? fecha_palabra(DATE())

FUNCTION fecha_palabra
    LPARAMETERS ldfecha
    RETURN dia_semana(ldfecha)+", "+STR(DAY(ldfecha),2)+ ;
      " de "+mes_year(ldfecha)+" de "+STR(YEAR(ldfecha),4)
ENDFUNC

FUNCTION dia_semana
    LPARAMETERS ldfecha
    LOCAL ARRAY ladia(7)
    ladia(1) = "Domingo"
    ladia(2) = "Lunes"
    ladia(3) = "Martes"
    ladia(4) = "Miercoles"
    ladia(5) = "Jueves"
    ladia(6) = "Viernes"
    ladia(7) = "Sabado"
    RETURN ladia(DOW(ldfecha))
ENDFUNC

FUNCTION mes_year
    LPARAMETERS ldfecha
    LOCAL ARRAY lames(12)
    lames(1)  = "Enero"
    lames(2)  = "Febrero"
    lames(3)  = "Marzo"
    lames(4)  = "Abril"
    lames(5)  = "Mayo"
    lames(6)  = "Junio"
    lames(7)  = "Julio"
    lames(8)  = "Agosto"
    lames(9)  = "Septiembre"
    lames(10) = "Octubre"
    lames(11) = "Noviembre"
    lames(12) = "Diciembre"
    RETURN lames(MONTH(ldfecha))
ENDFUNC

José Alberto Matute