Hoteles en Buenos Aires

(Cerrar)
CapitalFederal.com
  HOME - CAPITALFEDERAL.COM | HOME - MANUALES DE REFERENCIA

BuscarBuscar en los backups    LoginLogin del administrador 


MANUALES DE REFERENCIA  


Registra tus clasificados Gratis en BuenosAires.com
Clasificados de Automotores | Clasificados de Computadoras

MUEBLES DE OFICINA - NUEVA GUIA DE BUENOS AIRES.COM


cambiar el formato de baht a un estilo distinto

 

   INICIO FOROS -> Todo sobre EXCEL en Español
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
fdopl
Invitado





MensajePublicado: Mar Feb 20, 2007 4:20 pm    
Asunto: cambiar el formato de baht a un estilo distinto


TEMA CERRADO

al ingresar la funcion de =textobaht() regresa en idioma tailandes, que
formas existen para que aparezca en idioma espaÓÁol
Volver arriba
Hùctor Miguel
Invitado





MensajePublicado: Mar Feb 20, 2007 10:11 pm    
Asunto: Re: cambiar el formato de baht a un estilo distinto


TEMA CERRADO

hola, ?

Cita:
al ingresar la funcion de =textobaht() regresa en idioma tailandes
que formas existen para que aparezca en idioma espa#ol

1) si consultas la ayuda en linea... 'veras' que la funcion SOLO 'sirve' para poner el texto en tailandes Sad(
2) 'baht' es el nombre de la moneda de curso legal en tailandia
[puedes consultar en sitios web, la tasa de cambio de 'cuantos'... 'BAHTS' por dolar]
3) como 'sufijo'... 'equivale' a 'poner' el nombre de la moneda despues la cantidad en texto ['aunque...' todavia... en tailandes] Sad(
4) con respecto del 'formato' del baht [configuracion regional en el panel de control de windows]
[me parece que 'solamente']... 'tiene que ver' con los digitos de cada segmento
5) para 'conversiones... te paso algunos tips en seguida.

si cualquier duda... comentas?
saludos,
hector.

-> si solo te interesa una o dos o tres cantidades a convertir...
podrias 'echar a perder' +/- 12 0 15 celdas por conversion usando formulas y concatenando textos
o... +/- 30 o 35 'nombres definidos' [mismo procedimiento anterior]

-> si vas a necesitar un mayor numero de conversiones... probablemente sera conveniente una funcion personalizada
podrias 'echarle un ojo' a las siguientes direcciones [funciones para 'convertir' numeros a texto]:
-> la 'mas famosa' es la de 'el Guille':
http://www.elguille.info/vb/utilidades/cNum2Text.htm el archivo se descarga en:
http://downloads.elguille.info/BajarZip.aspx?seccion=/vb/&zip=tcNum2Text.zip
-> nota: esta funcion [aunque es la mas famosa] tiene varias 'fugas/bugs/omisiones/errores/...' Sad(
si te decidieras por ella... comentas? [para proporcionarte algunos 'tips'] ;)

-> una mas de las 'famosas' la encuentras en...
http://www.sistemaslym.net/vba/excel/exfunnumletras.html el archivo se descarga en:
http://www.sistemaslym.net/vba/archivos/numeros_a_letras.zip

-> o puedes probar con el algoritmo que expongo al final, publicado por Claudio Sepulveda ['bastante' tiempo ha]...
[aunque no estoy seguro de su autoria] es de los mas 'sencillos' y faciles de 'adaptar' que me ha tocado conocer por estos 'lares'
puedes 'personalizar' para [practicamente] CUALQUIER 'necesidad' en las primeras 12 lineas.
ya 'incluye' un argumento 'opcional' para la 'salida' del texto en mayusculas/minusculas/... Smile)
->solo monedas del 'genero' masculino<-... 'trabajar' con el genero femenino 'requiere quemar' [unas cuantas] mas neuronas Smile)
existen otros diversos algoritmos [desde 'sencillos' hasta 'complejos'] para otras tambien diversas 'necesidades'...
=>copialo en un modulo 'normal' y 'llama' a la funcion como a cualquier otra funcion de hoja de calculo<=
=>TEN CUIDADO con los 'saltos de linea' si copias/pegas el codigo desde la ventana del mensaje<=

=== en un modulo de codigo 'normal' ===
Function EnLetras(Valor, Optional ByVal Tipo As Byte = 1) As String ' Funcion Principal '
If Not IsNumeric(Valor) Then
EnLetras = "¨ La referencia no es valor o... 'excede' la precisi n !!!": Exit Function
End If: Dim Moneda As String, Fracs As String, Cents As Integer
If Int(Abs(Valor)) = 1 Then Moneda = " peso" Else Moneda = " pesos"
If Right(Letras(Abs(Int(Valor))), 6) = "ill n " Or Right(Letras(Abs(Int(Valor))), Cool = "illones " Then Moneda = "de" & Moneda
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100
If Cents = 1 Then Fracs = " centavo" Else Fracs = " centavos"
If Cents = 0 Then Fracs = "" Else Fracs = " con " & Letras(Cents) & Fracs
EnLetras = Letras(Int(Abs(Valor))) & Moneda & Fracs
If Valor < 0 Then EnLetras = "menos " & EnLetras
If Tipo = 2 Then EnLetras = UCase(EnLetras) ' TODO EN MAYUSCULAS '
If Tipo = 3 Then EnLetras = StrConv(EnLetras, vbProperCase) ' Todo Como Nombre Propio '
If Tipo = 4 Then EnLetras = UCase(Left(EnLetras, 1)) & Mid(EnLetras, 2) ' Primer letra en mayuscula SOLAMENTE '
EnLetras = "(" & EnLetras & ")"
End Function
Private Function Letras(Valor) As String ' Funci n Auxiliar [uso 'exclusivo' de la funcion 'principal'] '
Select Case Int(Valor)
Case 0: Letras = "cero"
Case 1: Letras = "un"
Case 2: Letras = "dos"
Case 3: Letras = "tres"
Case 4: Letras = "cuatro"
Case 5: Letras = "cinco"
Case 6: Letras = "seis"
Case 7: Letras = "siete"
Case 8: Letras = "ocho"
Case 9: Letras = "nueve"
Case 10: Letras = "diez"
Case 11: Letras = "once"
Case 12: Letras = "doce"
Case 13: Letras = "trece"
Case 14: Letras = "catorce"
Case 15: Letras = "quince"
Case Is < 20: Letras = "dieci" & Letras(Valor - 10)
Case 20: Letras = "veinte"
Case Is < 30: Letras = "veinti" & Letras(Valor - 20)
Case 30: Letras = "treinta"
Case 40: Letras = "cuarenta"
Case 50: Letras = "cincuenta"
Case 60: Letras = "sesenta"
Case 70: Letras = "setenta"
Case 80: Letras = "ochenta"
Case 90: Letras = "noventa"
Case Is < 100: Letras = Letras(Int(Valor \ 10) * 10) & " y " & Letras(Valor Mod 10)
Case 100: Letras = "cien"
Case Is < 200: Letras = "ciento " & Letras(Valor - 100)
Case 200, 300, 400, 600, 800: Letras = Letras(Int(Valor \ 100)) & "cientos"
Case 500: Letras = "quinientos"
Case 700: Letras = "setecientos"
Case 900: Letras = "novecientos"
Case Is < 1000: Letras = Letras(Int(Valor \ 100) * 100) & " " & Letras(Valor Mod 100)
Case 1000: Letras = "mil"
Case Is < 2000: Letras = "mil " & Letras(Valor Mod 1000)
Case Is < 1000000: Letras = Letras(Int(Valor \ 1000)) & " mil"
If Valor Mod 1000 Then Letras = Letras & " " & Letras(Valor Mod 1000)
Case 1000000: Letras = "un mill n "
Case Is < 2000000: Letras = "un mill n " & Letras(Valor Mod 1000000)
Case Is < 1000000000000#: Letras = Letras(Int(Valor / 1000000)) & " millones "
If (Valor - Int(Valor / 1000000) * 1000000) _
Then Letras = Letras & Letras(Valor - Int(Valor / 1000000) * 1000000)
Case 1000000000000#: Letras = "un bill n "
Case Is < 2000000000000#
Letras = "un bill n " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
Case Else: Letras = Letras(Int(Valor / 1000000000000#)) & " billones "
If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) _
Then Letras = Letras & " " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
End Select
End Function
Volver arriba
Mostrar mensajes de anteriores:   
Este foro está cerrado y no podés publicar, responder o editar temas   Este tema está cerrado y no podés editar mensajes o responder    INICIO FOROS -> Todo sobre EXCEL en Español Todas las horas son GMT - 3 Horas
Página 1 de 1

 
Cambiar a:  
Podés publicar nuevos temas en este foro
No podés responder a temas en este foro
No podés editar tus mensajes en este foro
No podés borrar tus mensajes en este foro
No podés votar en encuestas en este foro


Powered by phpBB © 2001, 2005 phpBB Group


Todos los mensajes aquí publicados, son extraídos de la USENET