У меня есть выражение строка:Как использовать Compute для расчета общей с двойной DATATYPE
dim str as string = "999999999 * 999999999"
Я использую DataTable.Compute для расчета:
dim dt as new datatable
dim result as double = 0
result = cdbl(dt.Compute(str))
И я получаю ошибку:
Value is either too large or too small for Type 'Int32'.
Как я могу управлять типом данных результата в этом случае?
Эта функция работает как калькулятор Windows. Код так запутать, но это работает :)
'input = "999,999,999 x 888,888,888 + 112,365 ÷ 15 − 987,653"
Public Shared Function strCalc(ByVal input As String) As String
If input.Substring(input.Length - 1, 1) = " " Then input = input.Substring(0, input.Length - 3)
input = input.Replace("−", "-").Replace("x", "*").Replace("÷", "/").Replace(",", "")
Dim temp As Double = 0
Dim arr() As String = input.Split(" ")
If arr.Length > 1 Then
temp = New DataTable().Compute(If(arr(0).Contains("."), arr(0), arr(0) & ".0") & " " & arr(1) & " " &
If(arr(2).Contains("."), arr(2), arr(2) & ".0"), "")
If arr.Length > 3 Then
For i As Integer = 3 To arr.Length - 1 Step 2
temp = New DataTable().Compute(temp & " " & arr(i) & " " &
If(arr(i + 1).Contains("."), arr(i + 1), arr(i + 1) & ".0"), "")
Next
End If
Return temp
End If
Return input
End Function
Во-первых, вы можете сделать это в одной строке, то есть 'Dim результат = CDbl (New DataTable() .Compute (ул)) '. Что касается вопроса, я бы предположил, что использование '999999999.0' будет работать. – jmcilhinney
Для меня API вычислений ожидает еще один параметр с именем filter. Почему ваш код даже компилируется? – RBT
Или проще: 'Dim result As Double = 999999999R * 999999999R'. «R» - это символ типа «Double» в визуальном базовом – Fabio