If you set the number to a string and then just substring or trim it from the beginning of the string up to the position of the decimal place, then that should do the trick.
Agree with eps ..TD is not really wanting to round off .. just wants the first digit / digits . (going on example)
So for simplicity .. why could you not just send to integer ?
B4X:
Dim d1 As Double = 4.434 4
'Dim d2 As Double = 4.678 4
'Dim d3 As Double = 3.212 3
'Dim d4 As Double = 3.898 3
Dim i As Int = d1
Log (i)
..' tried to get an array going , but getting late (again !)