Convertir Números en letras en LibreOffice

A continuación te presento un ejemplo de macro en LibreOffice Basic que convierte un número (hasta millones) en su representación en letras en español. Puedes copiar este código en el editor de macros de LibreOffice (Menú: Herramientas → Macros → Organizar macros → LibreOffice Basic) y luego asignarlo a una función o a un botón según necesites.

-----------------------------

' Función principal: recibe un número y devuelve su representación en letras.
Function NumeroALetras(ByVal numero As Double) As String
    Dim entero As Long
    entero = Int(numero)
    NumeroALetras = ConvertirNumero(entero)
End Function

' Función que descompone el número en millones, miles y unidades menores de 1000.
Function ConvertirNumero(ByVal numero As Long) As String
    Dim texto As String
    Dim millones As Long, miles As Long, resto As Long

    If numero = 0 Then
        ConvertirNumero = "cero"
        Exit Function
    End If

    ' Obtener la parte de millones, miles y el resto.
    millones = numero \ 1000000
    resto = numero Mod 1000000
    miles = resto \ 1000
    resto = resto Mod 1000

    ' Procesar millones
    If millones > 0 Then
        If millones = 1 Then
            texto = texto & "un millón "
        Else
            texto = texto & ConvertirMenor1000(millones) & " millones "
        End If
    End If

    ' Procesar miles
    If miles > 0 Then
        If miles = 1 Then
            texto = texto & "mil "
        Else
            texto = texto & ConvertirMenor1000(miles) & " mil "
        End If
    End If

    ' Procesar el resto (de 0 a 999)
    If resto > 0 Then
        texto = texto & ConvertirMenor1000(resto)
    End If

    ConvertirNumero = Trim(texto)
End Function

' Función que convierte un número de 1 a 999 en letras.
Function ConvertirMenor1000(ByVal numero As Long) As String
    Dim texto As String
    Dim centenas As Long, decenaUnidad As Long

    ' Caso especial: 100 exacto
    If numero = 100 Then
        ConvertirMenor1000 = "cien"
        Exit Function
    End If

    ' Procesar centenas
    centenas = numero \ 100
    Select Case centenas
        Case 1
            If numero Mod 100 = 0 Then
                texto = "cien"
            Else
                texto = "ciento "
            End If
        Case 2: texto = "doscientos "
        Case 3: texto = "trescientos "
        Case 4: texto = "cuatrocientos "
        Case 5: texto = "quinientos "
        Case 6: texto = "seiscientos "
        Case 7: texto = "setecientos "
        Case 8: texto = "ochocientos "
        Case 9: texto = "novecientos "
        Case Else: texto = ""
    End Select

    ' Procesar decenas y unidades (números entre 0 y 99)
    decenaUnidad = numero Mod 100
    If decenaUnidad < 30 Then
        Select Case decenaUnidad
            Case 0: texto = texto ' no se agrega nada
            Case 1: texto = texto & "uno"
            Case 2: texto = texto & "dos"
            Case 3: texto = texto & "tres"
            Case 4: texto = texto & "cuatro"
            Case 5: texto = texto & "cinco"
            Case 6: texto = texto & "seis"
            Case 7: texto = texto & "siete"
            Case 8: texto = texto & "ocho"
            Case 9: texto = texto & "nueve"
            Case 10: texto = texto & "diez"
            Case 11: texto = texto & "once"
            Case 12: texto = texto & "doce"
            Case 13: texto = texto & "trece"
            Case 14: texto = texto & "catorce"
            Case 15: texto = texto & "quince"
            Case 16: texto = texto & "dieciséis"
            Case 17: texto = texto & "diecisiete"
            Case 18: texto = texto & "dieciocho"
            Case 19: texto = texto & "diecinueve"
            Case 20: texto = texto & "veinte"
            Case 21: texto = texto & "veintiuno"
            Case 22: texto = texto & "veintidós"
            Case 23: texto = texto & "veintitrés"
            Case 24: texto = texto & "veinticuatro"
            Case 25: texto = texto & "veinticinco"
            Case 26: texto = texto & "veintiséis"
            Case 27: texto = texto & "veintisiete"
            Case 28: texto = texto & "veintiocho"
            Case 29: texto = texto & "veintinueve"
        End Select
    Else
        Dim decenas As Long, unidades As Long
        decenas = decenaUnidad \ 10
        unidades = decenaUnidad Mod 10
        Select Case decenas
            Case 3: texto = texto & "treinta"
            Case 4: texto = texto & "cuarenta"
            Case 5: texto = texto & "cincuenta"
            Case 6: texto = texto & "sesenta"
            Case 7: texto = texto & "setenta"
            Case 8: texto = texto & "ochenta"
            Case 9: texto = texto & "noventa"
        End Select
        If unidades > 0 Then
            texto = texto & " y "
            Select Case unidades
                Case 1: texto = texto & "uno"
                Case 2: texto = texto & "dos"
                Case 3: texto = texto & "tres"
                Case 4: texto = texto & "cuatro"
                Case 5: texto = texto & "cinco"
                Case 6: texto = texto & "seis"
                Case 7: texto = texto & "siete"
                Case 8: texto = texto & "ocho"
                Case 9: texto = texto & "nueve"
            End Select
        End If
    End If

    ConvertirMenor1000 = Trim(texto)
End Function



Cómo utilizar la macro

  1. Abrir el editor de macros:

    • En LibreOffice, ve a Herramientas > Macros > Organizar macros > LibreOffice Basic.
    • Selecciona el documento (o "Mis macros") donde deseas guardar la macro.
    • Haz clic en Nuevo para crear un módulo y pega el código anterior.

  2. Llamar a la función:

    • Desde una celda en Calc, puedes llamar a la función si la defines como función (por ejemplo, =NumeroALetras(A1) donde A1 contiene el número).
    • O bien, puedes ejecutar la macro desde el editor de macros o asignarla a un botón.

Consideraciones

  • Esta macro convierte la parte entera del número. Si deseas incluir decimales (por ejemplo, para expresar centavos), se puede ampliar la función.
  • El código está diseñado para números positivos hasta el rango de millones. Para números mayores o negativos, se deberán agregar condiciones adicionales.

Con esta macro podrás convertir números en su representación en letras en español, abarcando unidades, decenas, centenas, miles y millones. ¡Espero que te sea de utilidad!



Comentarios

Publicar un comentario

Entradas populares de este blog

EXTRAER NOMBRES

Arrastrar archivos → Nombres sin extensión Arrastra tus archivos y obtén los nombres sin extensión Conserva tildes, eñes y caracteres especiales. No modifica los archivos, solo lista sus nombres. 📂 Arrastra y suelta aquí o haz clic para seleccionar Copiar lista Limpiar Consejo: puedes soltar varias veces; la lista se irá sumando. Si prefieres reemplazarla, pulsa "Limpiar" antes.
Leer más

15 RANCHERAS JORGE

 ESTEFANIA A VECES TRISTE (FA MAYOR) https://youtu.be/NX-qaUiJ9q4?si=eN54JgOoFef_OvK1 TU MANO SEÑOR (FA MAYOR) https://youtu.be/UKKnjsCYnfo?si=TpK_NBmI0RBJV69E PARA MI ES EL REY DEL UNIVERSO (LA MAYOR) https://www.youtube.com/watch?v=x17ch5bQU5Y SEÑOR, ESTAMOS ANTE TI (DO MAYOR) https://youtu.be/NbJ4H-V5S3I?si=_cNXGDjBFvIuiR1j DE TAL MANERA (LA MAYOR) https://www.youtube.com/watch?v=5fT-vsyEW24   SHIRLY YO SE QUE ÉL VIVE https://www.youtube.com/watch?v=6Ryl6OfnrGY SINCERIDAD https://www.youtube.com/watch?v=K6J3Wd8AMNM DEMENTE https://www.youtube.com/watch?v=eeH0R8DZPYU NO ME PUEDO APARTAR DE TI https://www.youtube.com/watch?v=5JP9jvaEu5g LA TUMBA VACÍA https://www.youtube.com/watch?v=DIX441zSe3o YULA LA ULTIMA VEZ https://www.youtube.com/watch?v=SlYXHf3LiG8 ENAMORADO DE TI https://www.youtube.com/watch?v=xlvji88CXQk CRUCIFICADO https://www.youtube.com/watch?v=xPqhtTnmxaU EL GRAN PENTECOSTES https://www.youtube.com/watch?v=h4M4g9jhPsU AGRADECIDA VIVO YO https://www.youtube.com/...
Leer más

Bálsamo

 Cuando solo y triste me siento, Cristo me dice con tierno amor, porque estas triste ya no estes triste, yo estoy contigo en tu pena y tu aflicción. Que tu mirada y tu pensamiento, de dia y de noche están en mi, cuando el desprecio del mundo te agobie, más ten confianza que al mundo venci.                            Coro Yo estoy contigo cuando estas triste, si estas enfermo allí estoy yo, yo soy el bálsamo a tu alma herida, y soy consuelo en tu aflicción. Más no desmayes y sigue adelante, que en las tinieblas yo soy tu luz. En aquel día yo diré al padre, él es tu hijo porque él llegó mi cruz.
Leer más