topic-2778

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Nombres de los meses en español?
Posted: Sat Apr 22, 2006 07:13 AM

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?

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

Nombres de los meses en español?
Posted: Sat Apr 22, 2006 08:16 AM

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

Un saludo

Manuel

R.F.

Posts: 840

Joined: Thu Oct 13, 2005 07:05 PM

Nombres de los meses en español?
Posted: Sat Apr 22, 2006 05:41 PM

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 Collapse

aMeses := {"Enero","Febrero","Marzo","Abril",;
                  "Mayo","Junio","Julio","Agosto",;
                  "Septiembre","Octubre","Noviembre","Diciembre"}

cMes := aMeses[MONTH()]

Saludos

R.F.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Nombres de los meses en español?
Posted: Sat Apr 22, 2006 07:24 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

En este momento lo estoy haciendo de esta manera
Posted: Sun Apr 23, 2006 03:01 PM

En este momento lo solucione como dice Rene y quedara asi en la aplicación.

Code: Select all Collapse

   ::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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

VeRCE

Posts: 219

Joined: Fri Nov 04, 2005 02:34 PM

Nombres de los meses en español?
Posted: Mon Apr 24, 2006 02:18 PM

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

Juan Carlos Salinas Ojeda

México. D.F.

-------------------------------------------------

FiveTech Support Forums

Continue the discussion