Page 1 of 1
Nombres de los meses en español?
Posted: Sat Apr 22, 2006 7:13 am
by leandro
Amigos del foro tengan muy buenos dias...
Al utilizar esta funcion cMONTH(date()) me arroja el nombre del mes, pero me lo arroja en Ingles, como hago para que lo mande en Español?
Posted: Sat Apr 22, 2006 8:16 am
by Manuel Valdenebro
Leandro,
Yo uso una libreria personal, para todas mis aplicaciones, donde una de las funciones es la que te pongo a continuación. Tu puedes incluirla en tu
librería personal, o bien ponerla directamente en tu programa.
/////////////////////////////////
// MES ( dFecha )
// cMes := MES ( DATE() )
/////////////////////////////////
FUNCTION MES (dFecha)
local cMes, nMes := MONTH (dFecha)
DO CASE
CASE nMes= 1
cMes:="Enero"
CASE nMes= 2
cMes:="Febrero"
CASE nMes= 3
cMes:="Marzo"
CASE nMes= 4
cMes:="Abril"
CASE nMes= 5
cMes:="Mayo"
CASE nMes= 6
cMes:= "Junio"
CASE nMes= 7
cMes:="Julio"
CASE nMes= 8
cMes:="Agosto"
CASE nMes= 9
cMes:="Septiembre"
CASE nMes= 10
cMes:="Octubre"
CASE nMes= 11
cMes:="Noviembre"
CASE nMes= 12
cMes:="Diciembre"
ENDC
RETURN cMes
Posted: Sat Apr 22, 2006 5:41 pm
by R.F.
Hay una fomra de linkear una lib con los mensajes del sistema en Español.
Hace tiempo hice una chapuza para salir del paso rapidamente:
Code: Select all
aMeses := {"Enero","Febrero","Marzo","Abril",;
"Mayo","Junio","Julio","Agosto",;
"Septiembre","Octubre","Noviembre","Diciembre"}
cMes := aMeses[MONTH()]
Posted: Sat Apr 22, 2006 7:24 pm
by Antonio Linares
Leandro,
REQUEST HB_Lang_ES // Para establecer idioma de Mensajes, fechas, etc..
REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)
// Idioma por defecto: Español...
HB_LangSelect("ES") // Para mensajes, fechas, etc..
HB_SetCodePage("ESWIN") // Para ordenación (arrays, cadenas, etc..) *Requiere CodePage.lib
En este momento lo estoy haciendo de esta manera
Posted: Sun Apr 23, 2006 3:01 pm
by leandro
En este momento lo solucione como dice Rene y quedara asi en la aplicación.
Code: Select all
::vMese := {"Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre","Cierre"}
oT1vc3:=EVAL(b:={||oLamcla:vMese[MONTH(DATE())]})
Pero de todas formas voy a usar los mensajes en español como dice Antonio.
A todos muchas gracias por sus respuestas
Posted: Mon Apr 24, 2006 2:18 pm
by VeRCE
Lo mas optimo es la solucion que
ofrece Linares, ya que no solo te cambiarán
los mensajes de los meses, sino que todos
los demas mensajes serán cambiados a
español.
Saludos