Подсчет времени работы - VBA

Формулировка задачи:

Доброго времени суток. Помогите с подсчетом времени работы оборудования. Во втором столбце значение 1 или 0. 1 включение, а 0 - соответственно выключение. Применяю формулу, он мне считает время, но не учитывает даты. Может есть у кого мысли пот этому поводу

Решение задачи: «Подсчет времени работы»

textual
                            Листинг программы 
                        
                            s = (iDays * 24) + CInt(Format(tResult, "hh")) ' всего часов