Convertir une chaîne de caractères au format décimal en VB.NET

Ce sera la façon la plus simple pour convertir une chaîne en nombre décimal?

D'entrée:

a = 40000.00-

Sortie sera

40,000.00-

J'ai essayé d'utiliser ce code:

Dim a as string

a = "4000.00-"

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

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

OriginalL'auteur user709787 | 2011-05-19

14

Utilisation Decimal.Parse pour convertir un nombre décimal, puis utilisez .ToString("format here") à la convertir en une chaîne de caractères.
```
Dim aAsDecimal as Decimal = Decimal.Parse(a).ToString("format here")
```
Dernier recours approche (non recommandé):
```
string s = (aAsDecimal <0) ? Math.Abs(aAsDecimal).ToString("##,###0.00") + "-" : aAsDecimal .ToString("##,###0.00");
```
Vous devrez traduire de Visual Basic.

J'ai essayer ceci mais le résultat que je veux c'est négatif devrait être à la fin. Dim a as string a = "4000.00-" a = Décimal.Parse(un).ToString("##,###.00") de la console.writeline (a) résultat de 4 000.00
Juste une supposition, mais avez-vous essayé "##,###0.00-"
Sinon il est préférable d'éviter de l'approche: (a<0) ? Les mathématiques.Abs(a).ToString("##,###0.00") + "-" : un.ToString("##,###0.00");
toujours pas de chance. Je vais essayer d'une manière différente. Je vais poster ici une fois que je l'ai eu. Merci pour votre réponse.
Mon dernier recours approche def travail. Bien que pas entièrement élégant.

OriginalL'auteur Slappy

Décimal.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

OriginalL'auteur chrissie1

3

Pour VB.NET:
```
CDec(Val(string_value))
```
Par exemple,
```
CDec(Val(a))
```
Le résultat sera 40000D ou si la valeur de a = "400.02", alors il sera 400.02D.

OriginalL'auteur Rohit
2

Le suivant fonctionne très bien pour moi, mais je ne sais pas si c'est correct ou pas.
```
double a = 40000.00;
a = double.Parse(a.ToString("##,###.00"));
MessageBox.Show(a.ToString("##,###.00"));
```
ligne du milieu est inutile. Vous êtes à la conversion d'une double chaîne, puis de l'analyser à nouveau revenir à double. Maintenant, si vous essayez de tronquer supplémentaire décimales (ex: 40000.0001 de 40000.00), qui va fonctionner, mais les Mathématiques.Round(a, 2) sera plus efficace.

OriginalL'auteur 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

OriginalL'auteur devinbost

Ce code fonctionne, mais il est assez long:

 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

OriginalL'auteur user709787

Vous devez vous connecter pour publier un commentaire.