显示小时数

Question

我一直试图找到一种方法，在列表框上显示时间a和时间b之间的小时数，即使是那几百小时。 注意：tiempoa也是“现在”，显然是在时间b之前。

Dim tiempoa As Date
Dim tiempob As Date
Dim tiempoc As Date

tiempoa = .Offset(, -18).Value
tiempob = Now
tiempoc = Format(tiempoa - tiempob, "hh:mm")

Data(i, 5) = tiempoc

This is whats displayed, even it showld be around 80 hours.

Answer 1

我已经明白了。

   tiempoa = .Offset(, -18).Value
   tiempob = Now
   tiempoc = DateDiff("h", tiempoa, tiempob)

Data(i, 5) = tiempoc