webentwicklung-frage-antwort-db.com.de

Konvertieren Sie einen String in VB.NET in Dezimalzahlen

Was ist der einfachste Weg, eine Zeichenfolge in eine Dezimalzahl umzuwandeln?

Eingang:

a = 40000.00-

Ausgabe wird sein

40,000.00-

Ich habe versucht, diesen Code zu verwenden:

Dim a as string

a = "4000.00-"

a = Format$(a, "#,###.##")
console.writeline (a)
10
user709787

Verwenden Sie Decimal.Parse zum Konvertieren in Dezimalzahlen und dann .ToString("format here") zum Konvertieren in einen String.

Dim aAsDecimal as Decimal = Decimal.Parse(a).ToString("format here")

Last-Resort-Ansatz (nicht empfohlen):

string s = (aAsDecimal <0) ? Math.Abs(aAsDecimal).ToString("##,###0.00") + "-" : aAsDecimal .ToString("##,###0.00");

Sie müssen in Visual Basic übersetzen.

14
Slappy

Verwenden Sie Decimal.TryParse

Dim a as string
Dim b as Decimal
If Decimal.TryParse(a, b) Then
   a = b.ToString("##,###.00")
Else
   a = "can not parse"
End If
5
chrissie1

Für VB.NET:

CDec(Val(string_value))

Zum Beispiel,

CDec(Val(a))

Das Ergebnis ist 40000D oder wenn der Wert für a = "400.02" ist, dann ist es 400.02D.

3
Rohit

Das Folgende funktioniert gut für mich, aber ich weiß nicht, ob es richtig ist oder nicht.

double a = 40000.00;
a = double.Parse(a.ToString("##,###.00"));
MessageBox.Show(a.ToString("##,###.00"));
2
Dorababu Meka
Sub Main()
    Dim convert As Func(Of String, Decimal) = _
    Function(x As String) Decimal.Parse(x) ' This is a lambda expression.
    Dim a = convert("-16325.62")
    Dim spec As String = "N"
    Console.WriteLine("{1}", spec, a.ToString(spec))
    'Console.ReadLine() ' Uncomment to see value in Console output.
End Sub
2
devinbost
Dim [email protected] = CDec(TextBox1.Text) '//convert string to decimal with short
0
Paul A. Quiamco

Dieser Code funktioniert, ist aber recht lang:

 Dim a as string 
 Dim b as decimal

 a = "4000.00-" 
 b = a

 If b >= 0 then
     console.writeline (b.ToString("##,###.00"))
 Else
     b = Math.Abs(b)
     console.writeline (b.ToString("##,###.00") & "-")
 End if
0
user709787