excel - 如何正确将秒转换为 hh :mm:ss in Excel

Question

我正在尝试计算在 Excel 中完成分析所需的时间。我使用 DateDiff 来计算所需的秒数，然后尝试将其格式化为小时、分钟、秒。

我的下面的代码导致在线溢出错误:

dTime = dTime / (60 * 60 * 24)

你知道我做错了什么吗？

Dim dTime As Long
Dim startTime, endTime As Date

startTime = Now() ' at the start of the analysis
endTime = Now() ' at the end of the analysis

dTime = DateDiff("s", startTime, endTime)
dTime = dTime / (60 * 60 * 24) 'convert seconds into days
StatusBox.Value = "Analysis completed in " & Format(dTime, "hh:mm:ss") & "."

Answer 1

看来你补偿过度了。无需转换。只需从结束时间中减去开始时间(可以选择存储为 @MatthewD 提到的 double 值)并将单元格格式设置为 hh:mm:ss (首选)或表示时间的字符串 Format(dTime, "hh:mm:ss") 。

Dim dTime As Double
Dim startTime As Date, endTime As Date

startTime = Now() ' at the start of the analysis
'analysis here
endTime = Now() ' at the end of the analysis

dTime = endTime - startTime 
StatusBox.Value = "Analysis completed in " & Format(dTime, "hh:mm:ss") & "."

如果您希望它是日期类型变量，则您的 startTime 声明是不正确的。您使用的方法将其创建为变体。