显示小时数[重复]

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