Nombres de los meses en español?

[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?

[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

[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  Expand view  RUN

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

cMes := aMeses[MONTH()]

[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

[leandro]

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

Code: Select all  Expand view  RUN

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

[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