Как в VBA дату преобразовать в количество часов?

Question

[Илья]

Есть: Excel, VBA и две даты.
Из одной даты вычитаем другую и получаем дату/время: "10.01.1900 00:00:00"
Как вывести эту дату в формате времени: "250:00:00"?
И все это делаем при помощи скрипта VBA в Excel.

Answer 1

[res2001]

Может хватит формулы?
Вообще дата в екселе - это дробное число, где целая часть - количество дней от какой-то даты, а дробная - количество секунд или мл.сек. В общем если взять целую часть и умножить на 24 получится количество часов.
Для VBA есть функция DateDiff, которая возвращает разницу между двумя датами в заданных интервалах. Например, чтобы получить разницу в часах между двумя датами:
DateDiff("h", date1, date2)

Comments

[Илья]

Спасибо за функцию. Так как мне нужно было еще минуты и секунды выводить я развил идею, но чувствую себя тем еще извращенцем после этого)

p = Int(DateDiff("s", date1, date2))
H = Int(p / 60 / 60)
M = Int((p - H * 60 * 60) / 60)
S = Int((p - H * 60 * 60) - M * 60)
MsgBox (Format(CStr(H) + ":" + CStr(M) + ":" + CStr(S), "hh:mm:ss"))

[res2001]

Илья: Тогда познакомьтесь еще с функцией DatePart - она выводит нужную часть даты/времени. Еще есть FormatDate ну и вообще нагуглите справочник по VBSу.

Answer 2

[shushpanio]

Пусть с опозданием НО...
1. имеем 2 ячейки (А1 и В1) в которых содержатся даты
2. в С1 пишем формулу =В1-А1
3. по ячейке С1 ПКМ-Формат Ячеек - Время - выбираем формат вида 35:00:00

Profit