vb.net держит удаление десятичного числа в уравнении

Question

У меня есть переменная, значение которой приходит к числу до числа, которое использует десятичное место. пример 257.85, однако, когда я обрабатываю это значение в следующем уравнении, он удаляет десятичное число, а число становится 25785, что неверно.

Уравнение, используемое в vb.net:

Dim ITEM2b As Integer = DataGridView1.Item(2, 0).Value '<--This case senario the value came to 257.85 

Dim ITEM15 As Integer 

If item1B = 4 Then 
    ITEM15 = ((ITEM2b/10) - (ITEM5b/10))/2 
ElseIf item1B = 3 Then 
    ITEM15 = ((ITEM2b/10) - (ITEM5b/10))/3 
    'MsgBox(ITEM2b & " " & ITEM5b) '<-- This line helped reveal the problem 
    'ITEM15 = ((257.85/10) - (50/10))/3 
ElseIf item1B = 2 Then 
    ITEM15 = ((ITEM2b/10) - (ITEM5b/10))/2 
End If 

Я попытался установить переменную Item2b, как целое число, строка и Double, но безрезультатно!

Answer 1

Dim ITEM2b As Integer = DataGridView1.Item(2, 0).Value '<--This case senario the value came to 257.85 

Dim ITEM15 As Integer 

Вы передаете значение целому числу, которое приведет к тому, что значение будет удалено после запятой.

Попробуйте использовать Двойной.

Dim ITEM2b As Double= DataGridView1.Item(2, 0).Value '<--This case senario the value came to 257.85 

Dim ITEM15 As Double