Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 101 vistas

    Funcion Aletras para Excel

    Cargado por

    Iver Ortiz Rivera
    Este documento presenta una función en Visual Basic para convertir números a su representación en letras. La función ALETRAS toma un número como entrada y devuelve una cadena con el número escrito en letras en español. Usa subfunciones para convertir la parte entera y los decimales por separado, y agrega la denominación correcta de moneda dependiendo del valor.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Funcion Aletras para Excel

    Cargado por

    Iver Ortiz Rivera
    101 vistas5 páginas
    Este documento presenta una función en Visual Basic para convertir números a su representación en letras. La función ALETRAS toma un número como entrada y devuelve una cadena con el número escrito en letras en español. Usa subfunciones para convertir la parte entera y los decimales por separado, y agrega la denominación correcta de moneda dependiendo del valor.

    Descripción original:

    funsion ALETRAS PARA EXCEL

    Título original

    Funcion Aletras Para Excel

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento presenta una función en Visual Basic para convertir números a su representación en letras. La función ALETRAS toma un número como entrada y devuelve una cadena con el número escrito en letras en español. Usa subfunciones para convertir la parte entera y los decimales por separado, y agrega la denominación correcta de moneda dependiendo del valor.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    101 vistas5 páginas

    Funcion Aletras para Excel

    Cargado por

    Iver Ortiz Rivera
    Este documento presenta una función en Visual Basic para convertir números a su representación en letras. La función ALETRAS toma un número como entrada y devuelve una cadena con el número escrito en letras en español. Usa subfunciones para convertir la parte entera y los decimales por separado, y agrega la denominación correcta de moneda dependiendo del valor.

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    de 5

    'FUNCION ALETRAS

    Function ALETRAS(Numero As Double, Optional DecimalEnLetra As Boolean) As String

    'Declaracion de variables

    Dim Moneda As String

    Dim Monedas As String

    Dim Centavo As String

    Dim Centavos As String

    Dim Con As String

    Dim NumCentavos As Double

    Dim Letra As String

    Const Maximo = 1999999999.99

    ' Parámetros

    Moneda = "Boliviano"

    Monedas = "Bolivianos"

    Decimal1 = "Centavo"

    Decimales = "Centavos"

    Con = ","

    'Si el numero esta dentro de 0 y 1999999999.99 (Maximo) entonces

    'convertir el numero a letras

    If (Numero >= 0) And (Numero <= Maximo) Then

    Letra = LETRAS((Fix(Numero)))
    NumCentavos = Round((Numero - Fix(Numero)) * 100) 'Pasar a decimales (al numero le resta el
    numero entero y lo multiplica por 100)

    'Si los centvos son mayores a cero entonces

    If NumCentavos >= 0 Then

    'Si el parámetro DecimalEnLetra es VERDADERO

    If DecimalEnLetra Then

    'Convertir los centavos en letra

    Letra = Letra & " " & Con & " " & LETRAS(Fix(NumCentavos))

    'Si el centavo es uno agregar leyenda Centavo (Singular)

    If (NumCentavos = 1) Then

    Letra = Letra & " " & Decimal1

    'De lo contrario agregar la leyenda Centavos (Plural)

    Else

    Letra = Letra & " " & Decimales

    End If

    'De lo contrario mostrar los centecimos como número

    Else

    'Si los centavos son menores a 10 entonces

    If NumCentavos < 10 Then

    Letra = "SON: " & Letra & " " & Con & " " & " 0" & NumCentavos & "/100"

    Else

    'De lo contrario

    Letra = "SON: " & Letra & " " & Con & " " & NumCentavos & "/100"

    End If

    End If
    End If

    'Si solo es un numero entonces

    'agregar la moneda en singular

    If (Numero = 1) Then

    Letra = Letra & " " & Moneda

    'De lo contrario agregar la moneda en plural

    Else

    Letra = Letra & " " & Monedas

    End If

    'Regresar el resultado final de la conversión

    ALETRAS = Letra

    Else

    'Si el Numero no está dentro de los límites mostrar un mensaje de error

    ALETRAS = "ERROR: el importe esta fuera del límite."

    End If

    End Function

    'Funcion LETRAS

    Function LETRAS(Numero As Long) As String

    'Declaracion de las variables

    Dim Unidades, Decenas, Centenas

    Dim Resultado As String

    'Numeros en letras
    Unidades = Array("", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE",
    "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISÉIS", "DIECISIETE", "DIECIOCHO",
    "DIECINUEVE", "VEINTE", "VEINTIUNO", "VEINTIDÓS", "VEINTITRÉS", "VEINTICUATRO",
    "VEINTICINCO", "VEINTISÉIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")

    Decenas = Array("", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA",


    "SETENTA", "OCHENTA", "NOVENTA", "CIEN")

    Centenas = Array("", "CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS",


    "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

    Select Case Numero

    Case 0

    Resultado = "CERO"

    Case 1 To 29

    Resultado = Unidades(Numero)

    Case 30 To 100

    Resultado = Decenas(Numero \ 10) + IIf(Numero Mod 10 <> 0, " Y " + LETRAS(Numero Mod
    10), "")

    Case 101 To 999

    Resultado = Centenas(Numero \ 100) + IIf(Numero Mod 100 <> 0, " " + LETRAS(Numero Mod
    100), "")

    Case 1000 To 1999

    Resultado = "MIL" + IIf(Numero Mod 1000 <> 0, " " + LETRAS(Numero Mod 1000), "")

    Case 2000 To 999999

    Resultado = LETRAS(Numero \ 1000) + " MIL" + IIf(Numero Mod 1000 <> 0, " " +
    LETRAS(Numero Mod 1000), "")

    Case 1000000 To 1999999

    Resultado = "UN MILLÓN" + IIf(Numero Mod 1000000 <> 0, " " + LETRAS(Numero Mod
    1000000), "")

    Case 2000000 To 1999999999

    Resultado = LETRAS(Numero \ 1000000) + " MILLONES" + IIf(Numero Mod 1000000 <> 0, " " +
    LETRAS(Numero Mod 1000000), "")
    End Select

    LETRAS = Resultado

    End Function

    También podría gustarte