Just a simple question

[Erick de la Torre]

I wan't to show the differents money simbols that where located in the Regional Configuration of the Control Panel, i looked for it in the registry without an answer.


I hope someone knows about it




Thanxs

[Jop]

Here are some ASCII nr's for money symbols

$: 36
ƒ: 131

ah wait, just put this code on a form.
Make sure the font is set to Courier new, and maximize the form.

Private Sub Form_Paint()
   Dim intT As Integer, dim intS As Integer
     CLS
  For intT = 32 To 248 Step 8
   For intS = 0 To 7
     Print Format(intT + intS, "@@@@@@") & ": " & Chr(intT + intS)
   Next intS
   Print
  Next intT
End Sub

Just look up the ASCII codes for the charachters you need!

[Erick de la Torre]

O.K. That works if i just want to put the symbol that I want but my question is how can i insert the number format that are located especifically in the Regional Configuration of the Control Panel. I looked for that group of format types in the registry.



Thanx

[Jop]

Oh sorry, I have no idea how to do that, sorry!

[Erick de la Torre]

Thanx Jop, I will look for it in the web.

[Joacim Andersson]

You can use the Format function:

Dim sngMySavings As Single
sngMySavings = 0.1
MsgBox Format(sngMySavings, "Currency")

Good luck!

[Jop]

Hey that's cool Joacim, it actually works
cool

[Erick de la Torre]

Thankx joacim, it works. Now I´m going to make a procedure that insert on a combo box all the Currency format types.

[Joacim Andersson]

Originally posted by Jop
Hey that's cool Joacim, it actually works
cool

Yeah it is kind of cool isn't it.
Here are some more named numeric formats (copied from MSDN library)

• General Number = Display number with no thousand separator.
• Currency = Display number with thousand separator, if appropriate; display two digits to the right of the decimal separator. Output is based on system locale settings.
• Fixed = Display at least one digit to the left and two digits to the right of the decimal separator.
• Standard = Display number with thousand separator, at least one digit to the left and two digits to the right of the decimal separator.
• Percent = Display number multiplied by 100 with a percent sign (%) appended to the right; always display two digits to the right of the decimal separator.
• Scientific = Use standard scientific notation.
• Yes/No = Display No if number is 0; otherwise, display Yes.
• True/False = Display False if number is 0; otherwise, display True.
• On/Off = Display Off if number is 0; otherwise, display On.

Have fun!

[Jop]

Great man, thanx

[Erick de la Torre]

Hey Joacim do tell me the website do you enter in MSDN

[Erick de la Torre]

How knows if the registry contains the Currency fonts that Excell has?, because i look for it without an answer.


Thanx