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 '---