Función De Numeros A Letras

Páginas: 3 (740 palabras) Publicado: 21 de enero de 2013
Function num_letras(Numero As Double) As String
Dim Letras As String
Dim HuboCentavos As Boolean
Dim Decimales As Double
Decimales = Numero - Int(Numero)
Numero = Int(Numero)
Dim Numeros(90) AsString
Numeros(0) = "CERO"
Numeros(1) = "UNO"
Numeros(2) = "DOS"
Numeros(3) = "TRES"
Numeros(4) = "CUATRO"
Numeros(5) = "CINCO"
Numeros(6) = "SEIS"
Numeros(7) = "SIETE"
Numeros(8) = "OCHO"Numeros(9) = "NUEVE"
Numeros(10) = "DIEZ"
Numeros(11) = "ONCE"
Numeros(12) = "DOCE"
Numeros(13) = "TRECE"
Numeros(14) = "CATORCE"
Numeros(15) = "QUINCE"
Numeros(16) = "DIESCISEIS"
Numeros(17)= "DIESCISIETE"
Numeros(18) = "DIESCIOCHO"
Numeros(19) = "DIESCINUEVE"
Numeros(20) = "VEINTE"
Numeros(21) = "VEINTIUNO"
Numeros(22) = "VEINTIDOS"
Numeros(23) = "VEINTITRES"
Numeros(24) ="VEINTICUATRO"
Numeros(25) = "VEINTICINCO"
Numeros(26) = "VEINTISEIS"
Numeros(27) = "VEINTISIETE"
Numeros(28) = "VEINTIOCHO"
Numeros(29) = "VEINTINUEVE"
Numeros(30) = "TREINTA"
Numeros(40) ="CUARENTA"
Numeros(50) = "CINCUENTA"
Numeros(60) = "SESENTA"
Numeros(70) = "SETENTA"
Numeros(80) = "OCHENTA"
Numeros(90) = "NOVENTA"
Do
'*---> Centenas de Millón
If (Numero < 1000000000) And (Numero>= 100000000) Then
If (Int(Numero / 100000000) = 1) And ((Numero - (Int(Numero / 100000000) * 100000000)) < 1000000) Then
Letras = Letras & "cien millones "
Else
Select Case Int(Numero / 100000000)Case 1
Letras = Letras & "CIENTO"
Case 5
Letras = Letras & "QUINIENTOS"
Case 7
Letras = Letras & "SETECIENTOS"
Case 9
Letras = Letras & "NOVECIENTOS"
Case Else
Letras = Letras &Numeros(Int(Numero / 100000000))
End Select
If (Int(Numero / 100000000) 1) And (Int(Numero / 100000000) 5) And (Int(Numero / 100000000) 7) And (Int(Numero / 100000000) 9) Then
Letras = Letras & "CIENTOS "Else
Letras = Letras & " "
End If
End If
Numero = Numero - (Int(Numero / 100000000) * 100000000)
End If
'*---> Decenas de Millón
If (Numero < 100000000) And (Numero >= 10000000) Then
If...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • convertir numeros a letras funcion()

    ...FUNCTION CONVIERTENUMLETRA(NUMERO) DIM TEXTO DIM MILLONES DIM MILES DIM CIENTOS DIM DECIMALES DIM CADENA DIM CADMILLONES DIM CADMILES DIM CADCIENTOS TEXTO = NUMERO TEXTO = FORMATNUMBER(TEXTO, 2) TEXTO = RIGHT(SPACE(14) & TEXTO, 14) MILLONES = MID(TEXTO, 1, 3) MILES = MID(TEXTO, 5, 3) CIENTOS = MID(TEXTO, 9, 3) DECIMALES = MID(TEXTO, 13, 2) CADMILLONES = CONVIERTECIFRA(MILLONES, 1) CADMILES = CONVIERTECIFRA(MILES, 1) CADCIENTOS =...

    Leer más
    567 Palabras 3 Páginas
  • Funcion Numero A Letra Visual Basic

    ...Public Class NumeroALetra Public Function Negritas(ByVal campo As String) As String Dim formato As String formato = "" & campo & "" Return formato End Function Public Function variables_concepto(ByVal marca As String, ByVal modelo As String, ByVal año As String, ByVal color As String, ByVal nserie As String) As String Dim convierte As New NumeroALetra Dim variables As String Dim mr, md, a, cl, ns As String If...

    Leer más
    993 Palabras 4 Páginas
  • Numeros A Letras Funcion Excel

    ...Function LetraG(Numero As Variant) Numero = Format(Numero, "0") LetraG = NumLet(Numero) End Function Function LetraC(Numero As Variant) Numero = Format(Numero, "0.00") NumDec = Right(Numero, 2) NumEnt = Left(Numero, Len(Numero) - 3) LetraC = NumLet(NumEnt) + " CON " + NumLet(NumDec) + "CENTAVOS" End...

    Leer más
    327 Palabras 2 Páginas
  • Numeros a Letras

    ... Function NumTxt(Numero As Double, TMon As String) As String Dim Letras As String Dim Espacio As String Dim Num As Double Dim Deci As String Dim Valor As Double Dim Inicio As Integer Dim Contador As Integer Dim Texto As String Dim SubCadena As String Dim Centena As String Dim Decena As String Dim Unidad As String Dim Ancho As Integer '------ Inicio de la Programacion--------------- Num = Int(Numero) Texto = Format(CStr(Num),...

    Leer más
    713 Palabras 3 Páginas
  • letras y numero

    ...CENTRO CULTURAL ANAHUAC Índice Introducción…………………………………………………………….. 2 Sociedad en la época colonial y su estado de igualdad entre las personas…2 Cambios……………………………………………………………….……..3 Etapa de revolución en México……………………………………………….4 México en los 60´s ………………………………………………………………. 5 México actual………………………………………………………………………. 6 y 7 Conclusion……………………………………………………………………………….. 7 Introducción A continuación se presentaran...

    Leer más
    1493 Palabras 6 Páginas
  • Funcion del letrado

    ...Función del letrado: Las funciones del letrado de las cortes son amplias y variadas, según Adolfo Pons y Umbert, que fue oficial de la secretaría del congreso “este cargo lleva anejas sinnúmero de obligaciones, a que no es posible atender sin probable descuido de algunas…la más importante, es la de asesorar en las sesiones parlamentarias a la mesa presidencial. Otras administrativas, burocráticas pero no menos importantes.” En efecto,...

    Leer más
    697 Palabras 3 Páginas
  • funciones numericas

    ...Funciones numéricas En matemáticas, se dice que una magnitud o cantidad es función de otra si el valor de la primera depende exclusivamente del valor de la segunda. Por ejemplo el área A de un círculo es función de su radio r: el valor del área es proporcional al cuadrado del radio, A = π·r2. Del mismo modo, la duración T de un viaje de tren entre dos ciudades separadas por una distancia d de 150 km depende de la velocidad v a la que...

    Leer más
    1457 Palabras 6 Páginas
  • FUNCIONES NUMERICAS

    ... Introducción Este trabajo tiene la finalidad de permitirnos conocer las funciones numéricas, las cuales podríamos decir que son relaciones que se hace entre dos conjuntos, aquí investigamos: las relaciones entre conjuntos, el par ordenado los componentes o coordenadas, el conjunto de partida el de llegada, el diagrama sagital y los tipos de funciones para así aprender más sobre este interesante tema. 1....

    Leer más
    569 Palabras 3 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS