Function tmes PARA TODOS, DE MI PARTE, SALUDITOS :-)

[AIDA]

Hola no soy una super programadora, realmente soy novata de novatos pero les paso esta pequeñita funcion para manejar los meses en español

yo la estoy usando para que los MSAgent al hablar se escuche el mes en español

Que tengan un bonito fin de semana


Aida

Ejemplo:

mes:= CMONTH(DATE())

MESITO:=tmes(mes)



//------------------------------------------------------------------------------
Function tmes(mes)

ingles:="January","February","March","April","May","June","July","August","September","October","November","December"}

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

Return (castellano[ASCAN(ingles,mes)])


//------------------------------------------------------------------------------

[fleal]

Cuando ví tu código me dió risa...

Por que yo tengo un "Chorizote" para hacer lo mismo.
Saludos

Fernando
México, DF



function SoloMes( nMes )
do case
case nMes == 1
return "Enero"
case nMes == 2
return "Febrero"
case nMes == 3
return "Marzo"
case nMes == 4
return "Abril"
case nMes == 5
return "Mayo"
case nMes == 6
return "Junio"
case nMes == 7
return "Julio"
case nMes == 8
return "Agosto"
case nMes == 9
return "Septiembre"
case nMes == 10
return "Octubre"
case nMes == 11
return "Noviembre"
case nMes == 12
return "Diciembre"
endcase
return ""

[sysctrl2]

// Para establecer idioma de Mensajes, fechas, etc..
REQUEST HB_Lang_ES

// Para establecer código de página a Español (Ordenación, etc..)
REQUEST HB_CODEPAGE_ESWIN

function _regresaMes( dFecha ) //Mayo
return (cmonth( dFecha ) )

function _regresaDia( dFecha ) //Jueves
return ( cdow( dFecha ) )

[AIDA]

sysctrl2 ESO SI ESTA INTERESANTE

Veo que se puede de muchas maneras el chiste es compartir y a si tener lo mejor para todos


Saluditos

Aida

Que tengan un bonito fin de semana

[sysctrl2]

Aida que te parece esta otra,

// Para establecer idioma de Mensajes, fechas, etc..
REQUEST HB_Lang_ES

// Para establecer código de página a Español (Ordenación, etc..)
REQUEST HB_CODEPAGE_ESWIN


function _cfecha( dFecha ) // sabado 10 de mayo del 2008
local cDia := cdow(dFecha)
local nDia := day(defecha)
local cMes := cmonth( dFecha )
local nYear : year( dFecha )
return ( cDia +" "+ strzero( nDia, 2 ) + " de " + cMes + " del " + str(nYear, 4) )

por cierto, se me olvido mensionar que hay que agregar al proyecto
la libreria CODEPAGE.LIB

saludos..



return n

[AIDA]

sysctrl2 muy interesante

Muchas gracias!!!