计算在不同日期的开始和结束时间使用的时间

Question

我正在尝试计算某一天资产的使用时间。因此，例如，如果从2015年1月1日上午4:00到2015年1月1日下午2:00使用资产，我可以使用约会功能2次，并获得10小时的差异，这意味着资产被使用一日10个小时。结束时间超过午夜时会出现问题。在那种情况下，我需要知道资产使用了多少小时，直到午夜。有没有一种简单的方法来计算它？

Answer 1

您可以使用：

Dim HoursUsed As Integer

If DateDiff("d", StartTime, StopTime) > 0 Then
    StopTime = DateValue(StopTime)
End If
HoursUsed = DateDiff("h", StartTime, StopTime)

准确衡量时间使用：

Dim TimeUsed As Date

TimeUsed = StopTime - StartTime

然后根据需要格式化TimeUsed。