Convert to Euros

[Jewel142]

Hi Everyone,

I have a program that I need to convert a dollar amount to Euros. I've done the background calculations computing from dollars to euros. I can get the proper amounts to show up in my listbox items but I'm having a hard time figuring out how to swap the decimals and the commas. This is what I have so far:

invoiceListBox.Items.Add(EURO_ACCESSORIES.ToString.Insert(0, "E") & ("N2").PadLeft(10))

Any suggestions? Thanks!!

Jewel

 

[macropod]

Hi Jewel,

You could use something along the lines of:

Sub Test()
Dim InVal As String, USD As String, Euro As String, Rate As Double
Rate = 1.2234
InVal = InputBox("Number to convert")
USD = Format(InVal, "$0,000.00")
Euro = Replace(Replace(Replace(Format(InVal * Rate, "€0,000.00"), ",", "#"), ".", ","), "#", ".")
MsgBox USD & "*" & Rate & "=" & Euro
End Sub

Cheers
Paul Edstein
[MS MVP - Word]

 

[strongm]

Jewel, you appear to be using VB.NET, so you probably want to ask your question in forum796. Having said that, here's one .NET approach:

[blue]    Dim nfi As NumberFormatInfo = New CultureInfo("en-US", False).NumberFormat

    nfi.CurrencyDecimalSeparator = ","
    nfi.CurrencyGroupSeparator = "."
    nfi.CurrencySymbol = "€"
    MsgBox(EURO_ACCESSORIES.ToString("C", nfi))[/blue]

 

[Jewel142]

Thank you so much. I will let you know how I make out. Thanks again and have a great day!

Jewel

 

[strongm]

Did it help?

 

[Jewel142]

Yes it did! Thank you so much! Is there a really good reference book out there that you can recommend? I've looked at a couple of them but I'm not sure which one to get.

Thanks again and have a great day!

Jewel