Valores Numéricos en Palabras
«ValorEnLetras »

Colaboración de Harvey Triana (10/Jul/97)


El modulo que acompaña a este documento contiene los procedimientos para hacer expreso un valor monetario en Palabras. Puede comprobar los siguientes ejemplos

Ejemplos:

Debug.Print ValorEnLetras("12345", "Dólares")
Debug.Print ValorEnLetras("9999.98", "Dólares")
Debug.Print ValorEnLetras("0", "Dólares")

Salida en la ventana Debug:

Doce Mil Trescientos Cuarenta y Cinco Dólares
Nueve Mil Novecientos Noventa y Nueve Dólares Con Noventa y Ocho Centavos
Cero Dólares


El código hace parte de una base de datos para usuarios múltiples que desarrolle en 1994 en Access 2.0 sobre Control Financiero (Industria Petrolera). Después de que el usuario ingresa el valor con Enter, se muestra la sarta en palabras y así puede confirmar su digitación.

En Access el código se coloca en el evento de la siguiente manera

strValue.Caption = ValorEnLetras([ValorContrato], [Tipo de Moneda])

Donde strValue es el nombre del Label que mostrará la salida. Las variables en corchetes cuadrados son campos de la base de datos.

Cualquier inquietud puedes comunicarte a [email protected] Atentamente, Harvey Triana


Pulsando este link puedes bajar el módulo. (ValLetra.zip 1.69 KB)

Nota del Guille:
Para usar sin problemas con el sistema decimal español, (porque Windows convierte de forma automática los decimales del punto al que esté configurado), deberás usar esto justo después de Pto = InStr(s, Dot) y antes de If Pto Then:

    '---Por si el sistema no es con punto...
    If Pto = 0 Then
        Pto = InStr(s, ",")
    End If
    '---

ir al índice