by AlGen Technologies (2 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
This module contains a function that will
take a currency var (up to 999,999,999.99)
and return the result
(including cents) as a string "spelled-written"
amount formated for mexican pesos.
'Public Function ConvierteNumeroALetra(Numero As Currency) As String'
Altrough it was made for mexican pesos,
it can be easily adapted for
any unit, in any language,in any way.
There are lots of number2words functions
out there, but I think mine is the
more understandable ans simplier
of 'em.
You will have to spend some time converting
the spanish numbers to english, thou...
----------------
Este modulo contiene una funcion que
toma una variable de moneda(currency)
(Hasta 999,999,999.99) y regresa
la cantidad de forma escrita como String.
(Incluye centavos)
'Public Function ConvierteNumeroALetra(Numero As Currency) As String'
La cantidad escrita la regresa usando el
formato de monto escrito en pesos mexicanos,
usado en cheques, depositos, facturas, etc.
Por ejemplo:
$1,525.23 = (Mil Quinientos Veinticinco Pesos, 23/100 M.N.)
Los centavos se escriben siempre sobre cien, y
M.N. significa Moneda Nacional.
Si esto les sirve, haganmelo saber.
-Fongus
VBcodersUpload