как получить разницу во времени в час: минута: секунды в строковом формате

Question

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") 

Answer 1

да ,, я разрешил это мой ответ:

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