Hi,
try following code:
Dim numbers As New List(Of Decimal)(New Decimal() {2.3D, 1.25333D, 1.000001D, 1, 0.5D, 1.5D, 2.5D, 3.5D, 4.5D, 0.7D, 0.50001D, 3.6111D, 104.99999D})
For Each n0 In numbers
Dim n1 = n0 - Math.Floor(n0)
Dim result = If(n1 < 0.5, "Buttom", If(n1 > 0.5, "Top", "Middle"))
Console.WriteLine($"{n0} - {result}")
Next
Result:
2,3 - Buttom
1,25333 - Buttom
1,000001 - Buttom
1 - Buttom
0,5 - Middle
1,5 - Middle
2,5 - Middle
3,5 - Middle
4,5 - Middle
0,7 - Top
0,50001 - Top
3,6111 - Top
104,99999 - Top