SoloCodigo

? sp_Fecha(date())

 FUNCTION sp_FechaApal(dFecha_a_Conv)
   Local sMes as string , sSem as string, cDia as string, cMes as string
   sMes='Enero     Febrero   Marzo     Abril     Mayo      Junio     Julio     Agosto    SeptiembreOctubre   Noviembre Diciembre'
   sSem='Domingo  Lunes    Martes   MiercolesJueves   Viernes  Sabado'
   cDia=Allt(SubStr(sSem, ((Dow(dFecha_a_Conv)*9)-9)+1, 9))
   cMes=Allt(SubStr(SMes, ((Month(dFecha_a_Conv)*10)-10)+1,10))
   Return cDia + ' '+Allt(Str(Day(dFecha_a_Conv)))+ ' de '+ cMes + ' de '+ Allt(Str(Year(dFecha_a_Conv)))
EndFunc