translate numbers to words

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there any function that can translate numbers (amounts) to words
for example: $1100 ----> One thousand and one hundred
 
Thanks and the function works perfectly. However the words are in small letters. Is there another function that can convert the wordings to capital letters?
 
Oh sure, that's no problem.
Just make a few small changes to the module code.
You need to manually change each word to have a capital letter.
So, for example, look at this line near the top:

Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " trillion"

Change that to:

Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " Trillion"

Notice I put a capital "T" near the end.
You need to do this for Trillion, Billion, Million, and Thousand.

Then where this function starts:
Private Function EnglishDigitGroup

Change each to this:
Const Hundred = " Hundred"
Just go down the list. Basically you're only changing things inside quotation marks.

Then go farther down to where it has twenty, thirty, etc. and do the same thing.

Then a little father down to where it has ten, eleven, etc.

You could also change the word exactly to Exactly if you desire as well.
You should be able to find that OK.

Compile the code, save the module, and then try it out.

--
Jeff Conrad
Access Junkie
Bend, Oregon

WC Lo said:
Thanks and the function works perfectly. However the words are in small letters. Is there
Click to expand...
another function that can convert the wordings to capital letters?
 
Back
Top