Wie erstellt man eine eingebaute Funktion um eine reelle Zahl als Währung zu formatieren?

Question

Ich brauche eine integrierte Funktion zum Erstellen eine reelle Zahl als Währung in folgendem Format zu formatieren:

1. Es sollte zu einer Leitwährung Charakter wie $
2. Komma Separatoren für Tausende
3. gerundete definierte Anzahl von Dezimalstellen
4. padding mit voreilenden und nacheilenden Nullen

Für den ersten Teil ist es einfach, durch Verketten des Dollar-s ign mit den Nummern, danach weiß ich nicht weiter. Irgendwelche Hilfe bitte?

Answer 1

Fest

Imports System 
Imports System.Collections 

Public Module Module1 

    Public Sub Main() 
     Console.WriteLine(Convert(12345678)) 
    End Sub 

    Function Convert(number) As String 

     Dim str as String = "" 

     While number > 0 

      str = (number MOD 1000).ToString() + str 
      number = number \ 1000 

      If number > 0 

       str = "," + str 

      End If 

     End While 

     Return "$" + str 

    End Function 

End Module 

https://dotnetfiddle.net/EYJvMC

Answer 2

Also mit Hilfe von „Blackwood“, „Oliver Ni“ und meiner eigenen Erfahrung, die ich verwalten diese mit einem bequemeren Weg kommen zu tun, Hoffnung Sie werden dies nützlich finden (Bitte beachten Sie durch, dass der Code in VB.NET 2010 Express Konsolenmodus geschrieben wurde):

Imports System.IO

öffentliche Module Module1

Dim value, result As Decimal 

Public Sub main() 
    result = convert() 
    Console.ReadKey() 
End Sub 

Function convert() 

    Console.Write("Enter value: ") 
    value = Console.ReadLine() 
    Console.Clear() 
    Console.WriteLine("$" & value.ToString("#,###,###.00")) 
    Return value 

End Function 

End Module