выберите конкретную цифру из целого числа - VBA

Question

Я занимаюсь математическим делением i.e 50/6, а результат - 8,33333. Я хочу взять первую цифру 8, установить ее как выход в другую ячейку рабочего листа, а затем вычесть ее из 8,3333. Конечный результат в другой ячейке должен составлять 0,3333. Как я могу удалить те (или десятки) слева от десятичной точки для указанного числа?

Answer 1

Так что я думаю, что вы можете использовать одну из следующих формул, полагая й положительное действительное число

x - int(x) 
Mod(x,1) 
x - trunc(x) 

Answer 2

Использования и пример для подобного случая я нашел от другого пользователя в StackOverflow я сделал следующее:

Dim trim As Integer 
trim = Range("C9") 
While trim >= 100 
trim = trim \ 10 
Wend 
Range("C10").Value = trim 

Мой первоначальный номер 8,33333, который был в ячейке C9. trim - это цифры слева от десятичного разделителя. Таким образом, выход имеет trim = 8.