FoxPro/Visual FoxPro - urgente fechas

   
Vista:

urgente fechas

Publicado por Sebastian (253 intervenciones) el 25/06/2008 21:17:17
Hola programadores hasta ayer funcionaba bien este codigo
alltrim(STR(DAY(consultas.fecha)))+" de "+ CMONTH(consultas.fecha)+ " del "+ alltrim(STR(YEAR(consultas.fecha)))

hoy muestra el mes en ingles y ahora como se puede corregir eso lo necesito en español
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:urgente fechas

Publicado por Marvin Emilson Pineda (75 intervenciones) el 25/06/2008 21:50:44
crea un archivo de procedimiento para devolverlo siempre en Español, Como?

*!! cargar archivo de procedimiento
set procedure to Prgs\X.prg Additive

*!! Correr la funcion
? MesEsp(Month(date()))

*!! Archivo de procedimiento X.prg

function MesEsp(nMes)
nMes = iif(pcount() = 0, month(date()), nMes)
Declare MEsp(12)
MEsp(1) = "Enero"
MEsp(2) = "Febrero"
MEsp(3) = "Marzo"
MEsp(4) = "Abril"
MEsp(5) = "Mayo"
MEsp(6) = "Junio"
MEsp(7) = "Julio"
MEsp(8) = "Agosto"
MEsp(9) = "Septiembre"
MEsp(10) = "Octubre"
MEsp(11) = "Noviembre"
MEsp(12) = "Diciembre"

Return MEsp(nMes)
endfunc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:urgente fechas

Publicado por Ernesto Hernandez (4632 intervenciones) el 25/06/2008 23:20:39
algo asi tambien funcionaria
FUNCTION RRMES(R_MES) && CONVIERTE MES A CARACTERES
LOCAL RC_MES:={"ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO",;
"AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE"}
RETURN IF(R_MES>0.AND.R_MES<13,RC_MES[R_MES],"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

urgente fechas

Publicado por Mauricio (1368 intervenciones) el 25/06/2008 21:55:55
Ya que sucedio algo puedes hacer esto: Crear un arreglo bidimensional; mes y descripcion, alli puedes obtener el mes en español.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:urgente fechas

Publicado por Ernesto Hernandez (4632 intervenciones) el 25/06/2008 23:21:00
algo asi tambien funcionaria
FUNCTION RRMES(R_MES) && CONVIERTE MES A CARACTERES
LOCAL RC_MES:={"ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO",;
"AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE"}
RETURN IF(R_MES>0.AND.R_MES<13,RC_MES[R_MES],"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:urgente fechas

Publicado por Jaime Dario (3 intervenciones) el 26/06/2008 15:30:07
Sencillo solo coloca este codigo asignandole a cada variebale el dia, mes. año

dFecha = Ctod(cFecha)
cNomDia = Cdow(dFecha)
cDia = Str(Day(dFecha), 2)
cMes = Cmonth(dFecha)
cAnno = Str(Year(dFecha), 4)
cFecha = cNomDia + " " + cDia + " de " + cMes + " de " + cAnno

espero te sea de gran utilidad.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar