Numeros a letras

no demora en llegar KL y entrar en el tema

GJRV
http://esnips.com/web/MsExcel
"Héctor Miguel" escribió en el mensaje
news:%
| hola, Gabriel !
|
| [pregunta]:
|
| como 'haces' para que por OE tu mensaje 'aparezca' +/- 3 horas 'antes' que
la respuesta 'mia' ?
| ya que por la intefase web de los grupos, tu mensaje 'aparece' +/- 1 hora
'despues' que la 'mia' ?
|
| [es solo una 'inquietud' personal] :D
|
| saludos,
| hector.
|
|

hector, cuando me pego en algo simple, lo arreglo con VBA, pero no me gusta
enseñarlo, y no me gusta dar soluciones VBA, intento simpre con funciones, y
en lo personal prefiero las soluciones simples asi tenga que poner filas y
columnas ocultas, pero eso no significa que no me gusten los retos, te puedo
decir que KL ha entrado en otro foro con los retos "DUROS" de funciones y
por alla estamos metidos, y se y reconozco que con el excel se pueden hacer
muchas cosas, no dejare nunca el VBA, y repito, no me gusta enseñarlo,
mientras pueda buscar soluciones para "usuario final" lo intentare, me
gustan las soluciones para todos, no me gustan las soluciones particulares,
creo que tu te has dado cuenta y KL que me encuentra en otros foros, que
nunca doy nada con VBA ni con acces, el proximo año estare en varios
seminarios de acces, pero como asistente, nunca como profesor


GJRV
http://esnips.com/web/MsExcel
"Héctor Miguel" escribió en el mensaje
news:%
| hola, Gabriel !
|
| > ... me he dado cuenta que la mayoria de los usuarios... sue#an con ser
"expertos"
| > y el ser expertos significa saber mucho de macros y VBA y yo le dedico
mas tiempo a las soluciones simples con funciones.
| > ... consultando sobre las funciones estadisticas y de ingenieria
(avanzadas en la red) y no he encontrado mucho
| > estoy pensando... hacer una mestria sobre el tema y especializarme
| > el problema es la extra#a idea que se mantiene en el medio con respecto
a la "gran importancia" del "VBA"
| > he visto soluciones impresionantes para sacar un simple promedio "con el
hijo menor del Acces" con VBA
| > y yo lo hubiera hecho con =promedio
|
| comparto contigo el hecho de que con el alcance y la potencia de
las -solas, simples y sencillas- funciones de excel...
| se pueden lograr 'cosas' -verdaderamente- 'impresionantes' :)
[ademas]...
| 'otra' de las caracteristicas 'importantes' de excel, es que cuando 'algo'
se les 'atora' a las funciones... -> VBA :D
| [aparte de que excel es -con mucho- mas 'amigable' para el usuario... que
su 'hermano mayor'... -access- ???] :)))
|
| saludos,
| hector.
|
|

Hola chicos,

"Remember the devil... and he will appear". Eso de "no demora en llegar KL" me hace muchisima gracia ya que si segun el reloj del OE
la llegada de HM se produce 3 horas mas tarde habiendo el respondido 1 hora antes, lo mio sera un desastre total de "impuntualidad"
:-)

En todo caso, Gabriel, si revisas los postings antiguos de este foro, notaras que el tema de los relojes me traen sin cuaidado;-)

Asi como el tema de la arrogancia/humildad (aprovecho para "comentar sobre el comentario" de Fermu). Es un poco como que me encanta
como actua Al Pacino, pero me da totalmente igual su vida personal, ni si es buena o mala persona segun alguien, ni si actua como
tal entre toma y toma en el plato aunque sea en publico. Obviamente, esto no incluye a los participantes con los que tengo
relaciones mas alla de los hilos de los foros :-). Total que, usando la expresion de HM, ser humilde o arrogante es "una
prerrogativa muy personal" de cada participante. Otra cosa es que el que se muestra "arrogante" debe tener asumido el riesgo de que
se le bajen los humos en algun momento :-)

Por otro lado (como linguista que soy y tratandose claramente de un genero literario en caso de los grupos de noticias) sostengo que
todas las figuras estilisticas incluidas la ironia, sarcasmo, hiperboles, etc, etc. son perfectamente aceptables y no tienen por que
herir la sensibilidad de nadie siempre y cuando no critiquen a la persona como tal sino unos comportamientos/ideas expresadas
concretos. No me gusta que me llamen tonto, pero acepto que me digan que he cometido una tonteria (obviamente mi primer impulso sera
intentar rebatirlo, eso si :-))

Y como dije en el otro foro [que menciona GR en uno de los postings de este hilo], prefiero aprender de las criticas/desafios de mis
propuestas, por mas ironicos que sean, que de los infinitos mensajes del tipo "Excel-lente aporte, una muestra mas del genio del que
posiblemente sea el mejor experto en Excel del mundo mundial!!!" de los que esta plagado aquel foro. Y si la palabra "critica" a
alguien no le sienta bien, llamadlo "observacion" (no por eso dejara de ser critica), pero es lo que creo que impulsa la mejora
constante de las soluciones ofrecidas en los grupos.

Saludos,
KL



"Gabriel Raigosa" <http://esnip.com/web/Raigosa> wrote in message news:

no demora en llegar KL y entrar en el tema

GJRV
http://esnips.com/web/MsExcel
"Héctor Miguel" escribió en el mensaje
news:%
| hola, Gabriel !
|
| [pregunta]:
|
| como 'haces' para que por OE tu mensaje 'aparezca' +/- 3 horas 'antes' que
la respuesta 'mia' ?
| ya que por la intefase web de los grupos, tu mensaje 'aparece' +/- 1 hora
'despues' que la 'mia' ?
|
| [es solo una 'inquietud' personal] :D
|
| saludos,
| hector.
|
|

Rafael wrote:

Saludos!

Alguien tendra alguna funcion para convertir numero a letras (gramatica:
Mexico)

Por su ayuda, muchas gracias

Rafael Sanchez

'Funciones para convertir de números a letras
'Llamada : Letras(Número,Formato) - Formato 1-Pesos, 2-Dólares
Function Unidades(num, UNO)
Dim U
Dim Cad

U = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE",
"OCHO", "NUEVE")
Cad = ""
If num = 1 Then
If UNO = 1 Then
Cad = Cad & "UNO"
Else
Cad = Cad & "UN"
End If
Else
Cad = Cad & U(num - 1)
End If
Unidades = Cad
End Function

Function Decenas(num1, res)
Dim D1
D1 = Array("ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE",
"DIECISEIS", "DIECISIETE", _
"DIECIOCHO", "DIECINUEVE")
D2 = Array("DIEZ", "VEINT", "TREINTA", "CUARENTA", "CINCUENTA",
"SESENTA", _
"SETENTA", "OCHENTA", "NOVENTA")

If num1 > 10 And num1 < 20 Then
Cad1 = D1(num1 - 10 - 1)
Else
Cad1 = D2((num1 \ 10) - 1)
If (num1 \ 10) <> 2 Then
If res > 0 Then
Cad1 = Cad1 & " Y "
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
Else
If res = 0 Then
Cad1 = Cad1 & "E"
Else
Cad1 = Cad1 & "I"
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
End If
End If
Decenas = Cad1
End Function

Function Cientos(num2)
num3 = num2 \ 100
Select Case num3
Case 1
If num2 = 100 Then
cad2 = "CIEN "
Else
cad2 = "CIENTO "
End If
Case 5
cad2 = "QUINIENTOS "
Case 7
cad2 = "SETECIENTOS "
Case 9
cad2 = "NOVECIENTOS "
Case Else
cad2 = Unidades(num3, 0) & "CIENTOS "
End Select

num2 = num2 Mod 100
If num2 > 0 Then
If num2 < 10 Then
cad2 = cad2 & Unidades(num2, num2)
Else
cad2 = cad2 & Decenas(num2, num2 Mod 10)
End If
End If
Cientos = cad2
End Function

Function Miles(num4)
If (num4 >= 100) Then
cad3 = Cientos(num4)
Else
If (num4 >= 10) Then
cad3 = Decenas(num4, num4 Mod 10)
Else
cad3 = Unidades(num4, 0)
End If
End If
cad3 = cad3 & " MIL "
Miles = cad3
End Function

Function Millones(cant)
If cant = 1 Then
ter = " "
Else
ter = "ES "
End If
If (cant >= 1000) Then
cantl = cantl & Miles(cant \ 1000)
cant = cant Mod 1000
End If
If cant > 0 Then
If cant >= 100 Then
cantl = cantl & Cientos(cant)
Else
If cant >= 10 Then
cantl = cantl & Decenas(cant, cant Mod 10)
Else
cantl = cantl & Unidades(cant, 0)
End If
End If
End If
Millones = cantl & " MILLON" & ter
End Function
Function decimales(numero As Single) As Integer
Dim iaux As Integer
iaux = numero - Application.Round(numero, 2)
decimales = iaux
End Function

Function LETRAS(cantm As Variant, ByVal mon As Integer) As String
Dim cants1 As String, num1 As Variant, num2 As Variant

num1 = cantm \ 1000000
num2 = cantm - (num1 * 1000000)

cents = (num2 * 100) Mod 100
If cents = 0 Then
cents1 = "00"
Else
cents1 = Format(cents)
End If
cantm = cantm - (cents / 100)
If cantm >= 1000000 Then
cantlm = Millones(cantm \ 1000000)
cantm = cantm Mod 1000000
End If
If cantm > 0 Then
If (cantm >= 1000) Then
cantlm = cantlm & Miles(cantm \ 1000)
cantm = cantm Mod 1000
End If
End If
If cantm > 0 Then
If cantm >= 100 Then
cantlm = cantlm & Cientos(cantm)
Else
If cantm >= 10 Then
cantlm = cantlm & Decenas(cantm, cantm Mod 10)
Else
cantlm = cantlm & Unidades(cantm, 1)
End If
End If
End If
If mon = 1 Then
LETRAS = "( " & cantlm & " PESOS " & cents1 & "/100 M.N. )"
Else
LETRAS = "( " & cantlm & " DOLARES " & cents1 & "/100 U.S.D. )"
End If
End Function

Private Sub prueba()
Dim res As String, num As Single
num = 50899697.51
res = LETRAS(num, 1)
End Sub

KL, yo voy a ser menos correcto que tu.

A mi me parece que Gabriel Raigosa es inaguantable. Su 'literatura' (me
remito como prueba irrefutable a sus mensajes en este hilo) es mas
empalagosa que el arroz con leche, su comportamiento de solo codearse con
Hector Miguel, como si los demas no estuviesemos a su altura intelectual y
profesional en Excel, me parece intolerable.

Mientras Gabriel Raigosa no se de cuenta de su talla intelectual y moral, yo
no abro sus mensajes.

Un saludo.
javier


"KL" escribio en el mensaje
news:%

Hola chicos,

"Remember the devil... and he will appear". Eso de "no demora en llegar
KL" me hace muchisima gracia ya que si segun el reloj del OE la llegada de
HM se produce 3 horas mas tarde habiendo el respondido 1 hora antes, lo
mio sera un desastre total de "impuntualidad" :-)

En todo caso, Gabriel, si revisas los postings antiguos de este foro,
notaras que el tema de los relojes me traen sin cuaidado;-)

Asi como el tema de la arrogancia/humildad (aprovecho para "comentar sobre
el comentario" de Fermu). Es un poco como que me encanta como actua Al
Pacino, pero me da totalmente igual su vida personal, ni si es buena o
mala persona segun alguien, ni si actua como tal entre toma y toma en el
plato aunque sea en publico. Obviamente, esto no incluye a los
participantes con los que tengo relaciones mas alla de los hilos de los
foros :-). Total que, usando la expresion de HM, ser humilde o arrogante
es "una prerrogativa muy personal" de cada participante. Otra cosa es que
el que se muestra "arrogante" debe tener asumido el riesgo de que se le
bajen los humos en algun momento :-)

Por otro lado (como linguista que soy y tratandose claramente de un genero
literario en caso de los grupos de noticias) sostengo que todas las
figuras estilisticas incluidas la ironia, sarcasmo, hiperboles, etc, etc.
son perfectamente aceptables y no tienen por que herir la sensibilidad de
nadie siempre y cuando no critiquen a la persona como tal sino unos
comportamientos/ideas expresadas concretos. No me gusta que me llamen
tonto, pero acepto que me digan que he cometido una tonteria (obviamente
mi primer impulso sera intentar rebatirlo, eso si :-))

Y como dije en el otro foro [que menciona GR en uno de los postings de
este hilo], prefiero aprender de las criticas/desafios de mis propuestas,
por mas ironicos que sean, que de los infinitos mensajes del tipo
"Excel-lente aporte, una muestra mas del genio del que posiblemente sea el
mejor experto en Excel del mundo mundial!!!" de los que esta plagado aquel
foro. Y si la palabra "critica" a alguien no le sienta bien, llamadlo
"observacion" (no por eso dejara de ser critica), pero es lo que creo que
impulsa la mejora constante de las soluciones ofrecidas en los grupos.

Saludos,
KL



"Gabriel Raigosa" <http://esnip.com/web/Raigosa> wrote in message
news:

no demora en llegar KL y entrar en el tema

GJRV
http://esnips.com/web/MsExcel
"Héctor Miguel" escribió en el mensaje
news:%
| hola, Gabriel !
|
| [pregunta]:
|
| como 'haces' para que por OE tu mensaje 'aparezca' +/- 3 horas 'antes'
que
la respuesta 'mia' ?
| ya que por la intefase web de los grupos, tu mensaje 'aparece' +/- 1
hora
'despues' que la 'mia' ?
|
| [es solo una 'inquietud' personal] :D
|
| saludos,
| hector.
|
|