使用VBA在excel中计算从当前时间开始经过的时间

在我的程序中，用户填写一个userform，它会自动生成在另一张excel表格上填写的信息和时间。我想使用VBA来计算从表格的原始输入时间到当前时间的持续时间。我不明白为什么我的代码不起作用。当我尝试使用它时，持续时间一直为零。我不确定我需要从“Now（）”中减去什么才能使这个函数起作用并给我一个实际值

代码如下：

Private Sub cmdOkUpdate_Click()

Dim length As Date

length = Format(Now(), "hh:mm:ss")

strBOL = txtBOL.Value
strID = txtID.Value
details = txtDet.Value
opt = lbxOption.Value
currtime = time()
today = Format(Now(), "MM/DD/YYYY")
emp = TextBox1.Value
dur = Format(Now() - currtime, "hh:mm:ss")

If NoFill = True Then
    cellFill = ""
ElseIf NoFill = False Then
    With Sheet5

    .Range("A1").Value = "Time"
    .Range("B1").Value = "Date"
    .Range("C1").Value = "Location"
    .Range("D1").Value = "Category"
    .Range("E1").Value = "BOL"
    .Range("f1").Value = "Trailer #"
    .Range("g1").Value = "Details"
    .Range("H1").Value = "EE Name"
    .Range("I1").Value = "Duration"
    
    .Range("A2").EntireRow.Insert
    .Range("A2").Value = currtime
    .Range("B2").Value = today
    .Range("C2").Value = spot
    .Range("D2").Value = opt
    .Range("E2").Value = strBOL
    .Range("F2").Value = strID
    .Range("G2").Value = details
    .Range("H2").Value = emp
    .Range("I2").Value = dur
    
    .Columns("A:I").AutoFit
    
    End With

    If Not IsEmpty(opt) Then
        cellFill = opt & " " & vbCrLf & "BOL (last 5 digits): " & strBOL & " " & vbCrLf & "Trailer # " & strID & " " & vbCrLf & "Details: " & details & " " & vbCrLf & "EE Name: " & emp & " " & vbCrLf
        ActiveCell.Value = cellFill
        Call RealTimeTracker
    End If
    
End If


Unload Me
Sheet1.Activate


End Sub

---

@Leah，你的代码确实在工作。如果您尝试此方法（改编自您的代码），您将看到它可以工作：

子测试（）
currtime=时间（）
waitTill=Now（）+时间值（“00:00:05”）
而现在（）

您遇到的问题是

dur

太接近

currtime

，因此实际经过的时间为0

您可以尝试将其放在代码的较低位置，如下所示：

如果NoFill=True，则
cellFill=“”
ElseIf NoFill=False然后
附页5
'...
.Range（“I2”）.Value=格式（现在（）-currtime，“hh:mm:ss”）
'...
以
'...
如果结束

---

然而，我不认为这会有什么不同，因为代码似乎没有做任何“复杂”到需要一秒钟以上的事情。

currtime=time（）

-这是什么？为什么要使用

Format（）

？此函数返回一个字符串。您希望使用数值

Now（）

实际上是一个数值，不要将其转换为字符串。

today=Format（Now（），“MM/DD/YYYY”）

可以简化为只

today=Date

。无论如何，可以通过使用

Timer（）

函数来获取经过的时间

将t设置为单色

（或将

设置为双色

以提高精度），然后将当前计时器设置为var

t=timer

。然后，当您需要经过的时间时：

Debug.Print Timer-t

（

Format（）

在这方面可以，只是不需要计算。在上一条评论中应该更清楚这一点）无论是使用

Now（）

还是此方法，这两种方法都可以工作。这只是经过的秒数，可以根据需要进行转换。谢谢您的帮助！我想从我的工作表上已经输入的时间中找出经过的时间。该时间来自currtime=time（），它自动生成用户填写表单的时间。所以我对从用户填写表单到现在所经过的时间感兴趣。