FiveTech Software tech support forums

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?

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

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

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

cMes := aMeses[MONTH()]

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 solucione como dice Rene y quedara asi en la aplicación.

Code: Select all  Expand view

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

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