Число в формате ч:мм разбить на части

[Djeki]

Добрый день, уважаемые знатоки Экселя.
В ячейке записано число, но формат ячейки задан ч:мм и число отображается что то типа 1:02 . Как это отображение разбить на части т.е. получить два числа: 1 и 2 в данном примере. Во вложенном файле , в первом столбце то что есть, а в третьем и четвёртом столбце что надо получить.. Пробовал разбить функцией Split но не получается т.к. она читает из ячейки число..
Спасибо за ответ.

[IgorGO]

две строки сверху - один подход к решению, две снизу - другой, три по средине - просто задан формат ячейке.

[Djeki]

Спасибо, Игорь.. А на VBA это сделать можно ?
Спасибо за ответ.

[Djeki]

Спасибо за подсказку. Разобрался сам.

ActiveCell.FormulaR1C1 = "=INT(MOD(RC[-2],1)*24)"
ActiveCell.FormulaR1C1 = "=ROUND(MOD(MOD(RC[-3],1)*24,1)*60,0)"