使用Excel vba计算在时间和外出时间内花费的总小时数

Question

我必须计算总花费时间

enter image description here

我附上了显示数据格式的Excel（img）。

我尝试过以下代码＆＃34;

For k = 2 To rowval:

    InTime = Rows(k).Cells(1, 6).Value
    OutTime = Rows(k).Cells(1, 7).Value

    If InTime <> "" And OutTime <> "" Then    
        a = Val(InTime)
        b = Val(OutTime)
        time = b - a

对于某些值，而不是将 3.516666667 作为输出 3 作为输出。

有人可以帮助我获得适当的输出吗？

Answer 1

我认为您不需要使用VBA进行此计算。您可以在Total Hrs字段中使用基本的vba forumla，如下所示。

= TEXT（G2-F2，＆＃34;为hh：mm＆＃34）

如果您想在VBA中执行此操作，那么您也可以在VBA代码中使用此公式，如下所示：

时间=文字（b-a，＆＃34; hh：mm＆＃34;）

这里的诀窍包括＆＃34; hh：mm＆＃34;告诉excel如何格式化结果。

最佳