通过展示从日期表达式中删除日期信息的一般方法，尝试回答“我只需要一天中的时间和持续时间（而不是日期本身）”部分。正如你所指出的，两者给出了相同的答案。我想让OP在这里学到一些关于如何操作日期为VBA的知识。如果您的“更好的答案：使用参数”部分给出的是VBA

---

通过展示从日期表达式中删除日期信息的一般方法，尝试回答“我只需要一天中的时间和持续时间（而不是日期本身）”部分。正如你所指出的，两者给出了相同的答案。我想让OP在这里学到一些关于如何操作日期为VBA的知识。如果您的“更好的答案：使用参数”部分给出的是VBA示例而不是VB.NET示例，那么它会更好。@GordThompson我已经修改了我的答案，在VBA语法中使用ADO。如果您修改它以保留正确的SQL语法，它甚至会很有用。下面是格式化函数的参考：Access/Jet的“hh:mm:ss tt”中的“tt”是什么意思“tt”未记录在VBA文件AFAICS中，且不适用于Access 2016中的“tt”。没有“tt”它确实可以工作。我不敢相信我错过了将strSQl作为日期的小错误。这个小补丁导致代码实现了我想要的功能，但我也尝试了您的代码，以便将来可以学习更好的编码习惯。但当我尝试它时，它给了我运行时错误3061，“参数太少。预期为3”。它没有要求任何东西，但它向我显示了带有[Start]、[End]和[Duration]参数的简化表。我还注意到您的代码列出了两次.parameters（“p2”）。我假设第二行是“p3”，我更正了第三行

。Parameters

并将参数名括在

VALUES

列表中。这些改变对你有用吗？是的，现在有用了！我已经将“p2”更改为“p3”，因此必须更新

值中的参数。我还可以问一下为什么这很重要吗？实际上我并不认为括号很重要——在我注意到我原来有两次“p2”之前，我添加了它们（就像出于绝望）。但是支架不应该疼，所以我把它们留下了。
Dim StartUpdate, EndUpdate, LengthUpdate, strSQl As Date
StartUpdate = Time()
    
Call UpdateAll 'This calls the collection of queries and is irrelevant for my problem

EndUpdate = Time()
LengthUpdate = EndUpdate - StartUpdate
Forms!frm_Timer.Caption = "Update Completed at " & EndUpdate & " (" & Format(LengthUpdate, "HH:MM:SS") & ")"

    DoCmd.SetWarnings (0)
    strSQl = "INSERT INTO tbl_DatabaseUpdateLog ( Start, [End], Duration ) " & _
            "SELECT '" & StartUpdate & "' AS Started, '" & EndUpdate & "' AS Ended, '" & LengthUpdate & "' AS Lasted"
    DoCmd.RunSQL strSQl
    DoCmd.SetWarnings (-1)
    
DoCmd.Close acForm, Me.Name

strSQL = "INSERT INTO neverDoThis VALUES ( '" & Format( startUpdate, "yyyy-MM-dd HH:mm:ss" & "' )"

strSQL = "INSERT INTO neverDoThis VALUES ( #" & Format( startUpdate, "MM/dd/yyyy hh:mm:ss tt" & "# )"

cmd.CommandText = "INSERT INTO databaseUpdateLog ( [Start], [End], [Duration] ) VALUES ( @start, @end, @duration )"
cmd.Parameters.Append cmd.CreateParameter( "@start", , , startUpdate )
cmd.Parameters.Append cmd.CreateParameter( "@end", , , endUpdate )
cmd.Parameters.Append cmd.CreateParameter( "@duration", , , lengthUpdate )

cmd.CommandText = "INSERT INTO databaseUpdateLog ( [Start], [End], [Duration] ) VALUES ( ?, ?, ? )"
cmd.Parameters.Append cmd.CreateParameter( "?", , , startUpdate )
cmd.Parameters.Append cmd.CreateParameter( "?", , , endUpdate )
cmd.Parameters.Append cmd.CreateParameter( "?", , , lengthUpdate )

CDate(Now - Date())

DateDiff(DateInterval.Second, EndUpdate, StartUpdate)

Dim rs As DAO.Recordset
Dim StartUpdate As Date
Dim EndUpdate As Date
Dim LengthUpdate As Date

StartUpdate = Time    
Call UpdateAll 'This calls the collection of queries and is irrelevant for my problem.    
EndUpdate = Time
LengthUpdate = EndUpdate - StartUpdate
Forms!frm_Timer.Caption = "Update Completed at " & EndUpdate & " (" & Format(LengthUpdate, "h:mm:ss") & ")"

Set rs = CurrentDb.OpenRecordset("Select Top 1 * From tbl_DatabaseUpdateLog")
rs.AddNew
    rs!Start.Value = StartUpdate
    rs!End.Value = EndUpdate
    rs!Duration.Value = LengthUpdate
rs.Update
rs.Close    
Set rs = Nothing

DoCmd.Close acForm, Me.Name