Converción Cantidad Numerica A Letras Pesos Mexicanos En V.B 2008

Páginas: 2 (319 palabras) Publicado: 19 de octubre de 2012
Module Convert_Number_to_Lyrics
Public Function Num2text(ByVal Value As Integer) As String
Select Case Value
Case 0 : Num2text = "Cero"
Case 1 : Num2text ="Un"
Case 2 : Num2text = "Dos"
Case 3 : Num2text = "Tres"
Case 4 : Num2text = "Cuatro"
Case 5 : Num2text = "Cinco"
Case 6 : Num2text ="Seis"
Case 7 : Num2text = "Siete"
Case 8 : Num2text = "Ocho"
Case 9 : Num2text = "Nueve"
Case 10 : Num2text = "Diez"
Case 11 : Num2text ="Once"
Case 12 : Num2text = "Doce"
Case 13 : Num2text = "Trece"
Case 14 : Num2text = "Catorce"
Case 15 : Num2text = "Quince"
Case Is< 20 : Num2text = "Dieci" & Num2text(Value - 10)
Case 20 : Num2text = "Veite"
Case Is < 30 : Num2text = "Veiti" & Num2text(Value - 20)
Case 30 :Num2text = "Treita"
Case 40 : Num2text = "Cuarenta"
Case 50 : Num2text = "Cincuenta"
Case 60 : Num2text = "Sesenta"
Case 70 : Num2text = "Setenta"Case 80 : Num2text = "Ochenta"
Case 90 : Num2text = "Noventa"
Case Is < 100 : Num2text = Num2text(Int(Value \ 10) * 10) & " y " & Num2text(Value Mod 10)Case 100 : Num2text = "Cien"
Case Is < 200 : Num2text = "Ciento" & Num2text(Value - 100)
'Case 200, 300, 400, 600, 800 : Num2text = Num2text(Int(Value\ 100) & "Cientos")
Case 200 : Num2text = "Dos Cientos"
Case 300 : Num2text = "Tres Cientos"
Case 400 : Num2text = "Cuatro Cientos"
Case 500 :Num2text = "Quinientos"
Case 600 : Num2text = "Seis Cientos"
Case 700 : Num2text = "Setecientos"
Case 800 : Num2text = "Ocho Cientos"
Case 900 :...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Converción de un numero decimal a uno binario

    ...CONVERSIÓN DE UN NÚMERO DECIMAL A BINARIO Para esta transformación es necesario tener en cuenta los pasos que mostraremos en el siguiente ejemplo: Transformemos el número 42 a número binario 1. Dividimos el número 42 entre 2 2. Dividimos el cociente obtenido por 2 y repetimos el mismo procedimiento hasta que el cociente sea 1. 3. El número binario lo formamos tomando el primer dígito el último cociente, seguidos...

    Leer más
    815 Palabras 4 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
  • El peso mexicano

    ...El peso mexicano es la moneda oficial de México. El nombre peso ha correspondido a dos unidades monetarias mexicanas diferentes. • La primera de ellas identificada con el código ISO MXP, que fue vigente hasta el 31 de diciembre de 1992. • La segunda, equivalente a 1000 MXP, entró en vigencia el día 1 de enero de 19931 y tiene asignado el código ISO MXN. Esta unidad fue denominada nuevo peso hasta el 31 de diciembre de...

    Leer más
    1128 Palabras 5 Páginas
  • letras y numero

    ...Inquisición que procuraba la supresión de idolatrías indígenas, tenía instalados sus oficios en el territorio. El territorio de la Nueva España era lo suficientemente grande para que en él existiera una gran cantidad de pueblos indígenas y una gran variedad de lenguas, sin excluir a los europeos. Cambios A pesar de que por regla general se propuso una política de integración, la realidad política que imponía el otorgamiento de los puestos importantes para la...

    Leer más
    1493 Palabras 6 Páginas
  • Peso mexicano

    ...see Morlaix - Ploujean Airport. Mexican peso Mexican banknotes as of 2008 ISO 4217 code MXN (formerly MXP) Central bank Bank of Mexico Website www.banxico.org.mx Date of introduction 1 January 1993 User(s) Mexico Inflation 4.83% (Bank of Mexico, Feb. 2010 est.) Source Banco de Mexico, December 2008 Subunit 1/100 centavo Symbol $ or Mex$ centavo ¢ Nickname varos, morlacos, money, lana, lucas, papiros, marimba, varonil, Sor Juana ($200...

    Leer más
    549 Palabras 3 Páginas
  • Peso mexicano

    ...El peso mexicano es la moneda oficial de México. El nombre peso ha correspondido a dos unidades monetarias mexicanas diferentes. * La primera de ellas identificada con el código ISO MXP, que fue vigente hasta el 31 de diciembre de 1992. * La segunda, equivalente a 1000 MXP, entró en vigencia el día 1 de enero de 1993[1] y tiene asignado el código ISO MXN. Esta unidad fue denominada nuevo peso hasta el 31 de...

    Leer más
    682 Palabras 3 Páginas
  • El peso mexicano

    ...EL PESO MEXICANO El peso mexicano es la moneda oficial de México. El peso fue la primera moneda en el mundo en utilizar el signo $, que el dólar de Estados Unidos más tarde adoptó para su propio uso. El peso es la décimosegunda moneda más negociada en el mundo, la más negociada en América Latina y la tercera más negociada en toda América. El actual código ISO 4217 para el peso es MXN;. antes de...

    Leer más
    684 Palabras 3 Páginas
  • Numero Como Memoria De Cantidad

    ...Carrera de Colores Contenido: Números para comparar cantidades. Tantos como. . Fundamentación: “Los números también permiten comparar cantidades […].Se plantearán diversas situaciones que permitan a los niños ampliar sus experiencias para comprender que dos o más colecciones de objetos son comparables. Así también se espera que descubran diversos procedimientos de comparación y los utilicen según las cantidades en juego. A partir de estas propuestas podrán...

    Leer más
    748 Palabras 3 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS