Konvertierung einer Zeichenfolge in ein dezimal-in VB.NET

Was der einfachste Weg zu konvertieren eine Zeichenfolge in dezimal?

Eingang:

a = 40000.00-

Ausgang

40,000.00-

Ich versuche mit diesem code:

Dim a as string

a = "4000.00-"

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

blog.stevex.net/string-formatting-in-csharp

InformationsquelleAutor user709787 | 2011-05-19

14

Verwenden Decimal.Parse zum konvertieren in dezimal-Zahl vor, und verwenden Sie dann .ToString("format here") zu konvertieren zurück zu einem 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");
```
Übersetzen Sie in Visual Basic.

Dies versuche ich, aber das Ergebnis möchte ich negativ sein sollte am Ende. Dim a as string a = "4000.00" = Decimal.Parse(a).ToString("##,###.00") console.writeline (a) ' Ergebnis von 4.000.00
Nur eine Vermutung, aber haben Sie versucht,"##,###0.00-"
Sonst gibt es die unrecommended Ansatz: (a<0) ? Math.Abs(a).ToString("##,###0.00") + "-" : ein.ToString("##,###0.00");
immer noch kein Glück. Ich werde versuchen, es in einer anderen Weise. Ich werde es hier posten sobald ich es hab. Vielen Dank für Ihre Antwort.
Mein letzter Ausweg wird der Ansatz def Arbeit. Wenn auch nicht ganz elegant.

InformationsquelleAutor Slappy

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

InformationsquelleAutor chrissie1

3

Für VB.NET:
```
CDec(Val(string_value))
```
Beispielsweise
```
CDec(Val(a))
```
Wird das Ergebnis 40000D oder wenn der Wert für a = "400.02" dann wird es 400.02D.

InformationsquelleAutor Rohit
2

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"));
```
mittlere Zeile ist unnötig. Du bist Konvertierung eines double in einen string und dann analysieren es wieder zurück zu verdoppeln. Nun, wenn Sie versuchen, truncate extra Dezimalstellen (dh: 40000.0001 zu 40000.00), dass es funktionieren wird, aber Math.Round(a, 2) wird effizienter.

InformationsquelleAutor 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

InformationsquelleAutor devinbost

Dieser code funktioniert, aber es ist ziemlich 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

InformationsquelleAutor user709787

Dim D@ = CDec(TextBox1.Text) '//convert string to decimal with short

InformationsquelleAutor Paul A. Quiamco

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.