Каким будет самый простой способ преобразования строки в десятичную?
Input:
a = 40000.00-
Выход будет
40,000.00-
Я попытался использовать этот код:
Dim a as string
a = "4000.00-"
a = Format$(a, "#,###.##")
console.writeline (a)
Каким будет самый простой способ преобразования строки в десятичную?
Input:
a = 40000.00-
Выход будет
40,000.00-
Я попытался использовать этот код:
Dim a as string
a = "4000.00-"
a = Format$(a, "#,###.##")
console.writeline (a)
Используйте Decimal.Parse
для преобразования в десятичное число, а затем используйте .ToString("format here")
для преобразования обратно в строку.
Dim aAsDecimal as Decimal = Decimal.Parse(a).ToString("format here")
Последний вариант (не рекомендуется):
string s = (aAsDecimal <0) ? Math.Abs(aAsDecimal).ToString("##,###0.00") + "-" : aAsDecimal .ToString("##,###0.00");
Вам нужно будет перевести на Visual Basic.
Использовать 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
Для VB.NET:
CDec(Val(string_value))
Например,
CDec(Val(a))
Результат будет 40000D
или если значение для a = "400,02", то оно будет 400.02D
.
Следующие работы отлично подходят для меня, но я не знаю, правильно это или нет.
double a = 40000.00;
a = double.Parse(a.ToString("##,###.00"));
MessageBox.Show(a.ToString("##,###.00"));
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
Этот код работает, но он довольно длинный:
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
Dim [email protected] = CDec(TextBox1.Text) '//convert string to decimal with short