在VBA Excel中处理时间时得到错误的值

Question

我正在尝试在使用宏的excel工作表上进行一些计算，我正在处理时间值。

 h2 = rg.Cells(i, 5) 'time value
 h1 = rg.Cells(i, 4) 'time value
 h3 = (TimeValue("23:59") - h1) + (h2 - TimeValue("23:59"))

问题是，例如，当h1="20:00"和h2="07:55" h3应该是11:55却给出12:05

顺便说一句， H1是进入时间， H2是超时，所以h2在第二天，我正在尝试计算时间差。

问候

Answer 1

正如您指出的那样，由于H2是H1的第二天，因此您需要将其纳入计算。

因此，要计算H1和H2之间的差异，应首先将24小时添加到H2中。

  h2  +  1dy
07:55 + 24:00 = 31:55

                  v
                         -h1
                31:55 - 20:00 = 11:55

表示为时间的一天是1因为时间是以一天的小数部分表示的。

因此，除其他外，要达到上述目的，您的公式应为：

h3 = (h2 + 1) - h1

Answer 2

实际上，正确的答案是负 11:05:00，但Excel不能处理负时间。 负11：05 :: 00加上一天等于正数12:05:00。