Datetime 如何以小时：分钟：秒为单位获取字符串格式的时差

我想用HH:MM:SS来计算时差。以下是我尝试过的：

I have two times values, such as:   
1) 2:00:00 PM 
2) 5:30:10 PM 

如何计算秒数

我还想将结果连接如下：

lMinutes = DateDiff("n", CStr(TimeValue(RPTRs(2))), CStr(TimeValue(RPTRs(3))))
lHours = Fix(lMinutes / 60) '
lMinutes = ((lMinutes / 60) - lHours) * 60 

---

是的，我已经解决了这个问题，我的回答是：

sTimeDiff = " & Format$(lHours,"00") &  :" & Format$(lMinutes, "00") & ":" & Format$(lSeconds, "00")

---

你还想要前导零吗

sTimeDiff=Right（“00”和mHours，2）和“：”和Right（“00”和mMinutes，2）和“：”和Right（“00”和毫秒，2）

Dim mHours As Long, mMinutes As Long, mSeconds As Long, sTimeDiff As String, lSeconds As Long
lSeconds = DateDiff("s", CStr(TimeValue(RPTRs(2))), CStr(TimeValue(RPTRs(3))))
mSeconds = lSeconds ' Sample data
mHours = mSeconds \ 3600
mMinutes = (mSeconds - (mHours * 3600)) \ 60
mSeconds = mSeconds - ((mHours * 3600) + (mMinutes * 60))
sTimeDiff = mHours & ":" & mMinutes & ":" & mSeconds