VBA Spell out currency - need help finishing it

[vitesse]

I've been working on a way to spell out currency in Romanian for a while now but still haven't made it work entirely.

The problem with the Romanian language is that currency has different genders. For example, hundred or thousand is female, so the words for "one" and "two" are different than "one" and "two" for digits, which are male.


The code below is mostly working:

Please Login or Register  to view this content.

However, there are two major problems with it:

First, I need it to work up to single thousands, max. 9999.99, but at the moment it only works up to 999.99.
This portion of the code (which I copied from the hundreds and modified) does nothing:

Please Login or Register  to view this content.

Second, the currency has the equivalent to cents which is extracted using this formula:

Please Login or Register  to view this content.

The problem with this is that even though it should work, it keeps skipping every two digits, so instead of going .01, .02, .03, .04, it only shows .00, .02, .02, .04 etc.

edit: I figured out the second problem using the TRUNC function in the main worksheet. Apparently Int doesn't actually truncate, it does a weird roundup.


Any help would be appreciated.

[Gatti]

Hello my friend

Try changing this point:

Please Login or Register  to view this content.

To:

Please Login or Register  to view this content.

[vitesse]

I changed both last instances of that code to what you suggested and it didn't work. It's just 0 all the time now.

Thanks for the reply though.

[Gatti]

Did you change all "Int" for CDbl?

[vitesse]

Yes.

I changed all "Ind" for "CDbl" in the entire code and while the main code works as before, the "BANI" part (cents equivalent) at the end still doesn't work.

[vitesse]

After multiple tries, I gave up on trying to make the end part work properly. It seems that the Int function doesn't truncate properly, but rounds the number somehow.

Using

Please Login or Register  to view this content.

in the worksheet works fine.

Now all I need is to make the thousands part work in the main code.

[Gatti]

Oh... well... sorry didn't help for real
Glad you solved your problem

[vitesse]

Don't worry about it.
Your suggestion made me look closer into the Int function, which helped me realize that it's flawed.

So even though it wasn't quite what you had in mind, you still helped.