Codejock Developer Community : [SOLVED] Format Currency http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 20:20:10 +0000 Thu, 11 Jun 2009 10:29:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=14461 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[[SOLVED] Format Currency : Hi Jason, Well, now I know...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49862&title=solved-format-currency#49862 Author: Aaron
Subject: 14461
Posted: 11 June 2009 at 10:29am

Hi Jason,
 
Well, now I know it will work also with different locale settings, you did that test for me
 
btw can you remove all code in previous replies (except the working code of course hehehe) so other user can see what code to use.
 
Thanks again.
 
 
 
]]> Thu, 11 Jun 2009 10:29:21 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49862&title=solved-format-currency#49862 <![CDATA[[SOLVED] Format Currency : Also, thanks for helping me test...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49852&title=solved-format-currency#49852 Author: jpbro
Subject: 14461
Posted: 11 June 2009 at 8:44am

Also, thanks for helping me test it out in a different locale and reporting the bugs.]]> Thu, 11 Jun 2009 08:44:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49852&title=solved-format-currency#49852 <![CDATA[[SOLVED] Format Currency : Glad to help Aaron, and sorry...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49844&title=solved-format-currency#49844 Author: jpbro
Subject: 14461
Posted: 11 June 2009 at 7:26am

Glad to help Aaron, and sorry for the bugs.]]> Thu, 11 Jun 2009 07:26:51 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49844&title=solved-format-currency#49844 <![CDATA[[SOLVED] Format Currency : Hi, Would be nice if CJ could...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49829&title=solved-format-currency#49829 Author: Aaron
Subject: 14461
Posted: 11 June 2009 at 3:50am

Hi,

Would be nice if CJ could implement this in ReportControl  
 
Format property removes all zero's after decimal character (1,20 will be 1,2)  and that's not what you want, if you are using currency values.
 
 
 
]]> Thu, 11 Jun 2009 03:50:30 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49829&title=solved-format-currency#49829 <![CDATA[[SOLVED] Format Currency : Hi Jason, Now it works OK and...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49819&title=solved-format-currency#49819 Author: Aaron
Subject: 14461
Posted: 11 June 2009 at 12:48am

Hi Jason,
 
Now it works OK and it doesn't matter what the user enters (grouping / decimal character) it will format value as should, also with values that start with zero (0,21)
 
Thanks a lot
 
 
]]> Thu, 11 Jun 2009 00:48:26 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49819&title=solved-format-currency#49819 <![CDATA[[SOLVED] Format Currency : Hi Aaron,Sorry about that, as...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49813&title=solved-format-currency#49813 Author: jpbro
Subject: 14461
Posted: 10 June 2009 at 6:37pm

Hi Aaron,

Sorry about that, as I mentioned the code was only lightly tested so far. The problem stemmed from my misunderstanding of the Currency variable type in VB6. I thought that it would be internally stored with a "." for the decimal separator no matter what, but it appears that the implicit conversion to a string used the current locale format. The GetCurrencyFormat API requires the decimal separator to be a "."

I have modified the code (including an unrelated bugfix in the ConvertArbitraryLocaleNumberToUserLocale function), and this should be working now:

uploads/20090610_183606_MoneyFormat.zip
]]> Wed, 10 Jun 2009 18:37:56 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49813&title=solved-format-currency#49813 <![CDATA[[SOLVED] Format Currency : Hi Jason, Did you look at the...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49808&title=solved-format-currency#49808 Author: Aaron
Subject: 14461
Posted: 10 June 2009 at 3:00pm

Hi Jason,
 
Did you look at the problem I mentioned? I looked in Regional Settings Number and format = 1.234,56
So I set Grouping and Decimal symbol same as above and when I enter value: 0,10 it fails
 
Thanks in advance

 
]]> Wed, 10 Jun 2009 15:00:27 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49808&title=solved-format-currency#49808 <![CDATA[[SOLVED] Format Currency : There could be a bug, but here...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49774&title=solved-format-currency#49774 Author: jpbro
Subject: 14461
Posted: 09 June 2009 at 4:19pm

There could be a bug, but here is how it is supposed to work:

The textbox input has to be in the locale of your system as defined in the Regional Settings control panel. So if your number format is set to 1,234.55, then the input will have to be in that format.

If you want to use an arbitrary locale format for your input, you will have to use the ArbitraryLocaleNumberToCurrency() function on the input first (to convert it to a VB6 currency variable) and then pass that VB6 variable to the FormatMoney function for re-formatting. For example:

Regional Settings Number Format: 1,234.55
User Input in TextBox: 1.234,55
Send User Input to ArbitraryLocaleToCurrency("1.234,55", ".", ",", "") - Result = 1234.55 VB6 Currency Variable
Send Result of ArbitraryLocaleNumberToCurrency to FormatMoney(1234.55, decimal_Round, True, digitgrouping_Common, Chr$(128), ".", ",", True, False, negativestyle_Parentheses) Result = €1.234,55

if you regional settings are NOT set to "," grouping symbol and "." decimal symbol, then there is likely a bug and I will have to track it down.
]]> Tue, 09 Jun 2009 16:19:10 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49774&title=solved-format-currency#49774 <![CDATA[[SOLVED] Format Currency : Hi Jason, I have to format...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49773&title=solved-format-currency#49773 Author: Aaron
Subject: 14461
Posted: 09 June 2009 at 4:06pm

Hi Jason,
 
I have to format following values (for example)
 
    €    0,10
    €    0,30
    €    0,45
 
Just type these values into textbox and it will fail.
 
Thanks
 
]]> Tue, 09 Jun 2009 16:06:38 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49773&title=solved-format-currency#49773 <![CDATA[[SOLVED] Format Currency : The test app should work like...]]> http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49771&title=solved-format-currency#49771 Author: jpbro
Subject: 14461
Posted: 09 June 2009 at 3:34pm

The test app should work like this:

1) Change the Grouping symbol to "."
2) Change the decimal symbol to ","
3) Type a number into the "User Locale Currency" (formatted to youcurrent locale format as defined in your regional settings) and thenclick Convert. You should see something like this:




So the amount as originally typed must be in your current locale format so that CCur() can convert it to a VB6 Currency type. That value is then converted to an arbitrary locale format and returned as a string.

Or are you trying to accomplish something else?
]]> Tue, 09 Jun 2009 15:34:11 +0000 http://forum.codejock.com/forum_posts.asp?TID=14461&PID=49771&title=solved-format-currency#49771