Está función devuelve la fecha en "formato legible", por ejemplo: FechaLegible( date() ) -> 30/May/2018
Code: Select all
function FechaLegible( dfecha )
//local fecha := " / / "
local fecha := Ctod( ' / / ' )
local nombre_mes
local meses := { "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", ;
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre" }
if ! Empty( dfecha )
nombre_mes := Iif ( !Empty( dfecha), meses[Month(dfecha)], "" )
fecha := Alltrim(Str(Day(dfecha)) ) + "/" + Left(nombre_mes,3) + "/" + Str(Year(dfecha),4)
endif
return ( fecha )
Gracias.
Saludos,
Javier