Change SpellNumber Macro

[JNL]

Hi, I need to change the NumberToWord Macro to write e.g. "One Hundred Seven and Twenty" (for my language) for 127 and NOT "One Hundred Twenty Seven" like in English.
Please advise

Thank you.

[Aardigspook]

I assume you mean the one available on the MS site which gives you 'one hundred and twenty three dollars and forty five cents' or similar?
If so, try this - it's my amended version with euros and cents, with Dutch numbers - probably similar to Afrikaans if that's what you need.
I haven't tested it a lot, but it seems to be okay.

Please Login or Register  to view this content.

[JNL]

Hi, thanx for the reply.
I've changed it but still sitting with a problem.
In my language the wording is as follows: All numbers from 001 - 019 and all x01 - x19 are written as "en" and the amount
e.g. one hundred en(and) one, ....... one hundred en(and) nineteen, ....... nine hundred en(and) nineteen.
I’ve managed to change the "one hundred en(and) twenty" up to "one hundred en(and) ninety".
I'll be glad if somebody can help me if possible.

Thanx in advance
Johan

[Aardigspook]

Change the part noted below to add 'en ' and I think it then works:

Please Login or Register  to view this content.

The original code is written to give the written numbers the way the Americans do it (example 214 = 'two hundred fourteen'). In the UK we add 'and' just as you want ('two hundred and fourteen').
I think the amendment above will do what you want - I've quickly tested a few examples - but if it doesn't then please ask again. I'll then have to call in some expert VBA help - I'm just a novice with VBA.

[Sintek]

Hallo daar Johan...

(for my language)

I am assuming this to be Afrikaans...Very tricky...
Have adapted code to suite your requirements...The attached seems to work...
Am not always available as I'm busy with a project so can only follow up on your response later again...