Solved: Elapsed Time - 24-hour clock - spanning midnite

[JinkyJulie]

Hello Everybodys,

It has been along time... I come for help again... new problem... old code...

Trying to do some elapse time calculation... working OK if time (24-hour clock) is before or after midnite... if time SPANS midnite = problems.... (never had to span midnite before)

example... start time 23:49 end time 01:29 hrs = 22:20

can anyone push me in the right direction???


Set oResultTable = ActiveDocument.Tables(4)
With oResultTable
Set eTextCell = oResultTable.Cell(Row:=2, Column:=5)
Set eTextRange = eTextCell.Range
eTextRange.MoveEnd wdCharacter, -1
.Cell(2, 2).Range.Text = pTextRange.Text
.Cell(2, 3).Range.Text = aTextRange.Text
.Cell(2, 4).Range.Text = zTextRange.Text
StartTime = CDate(aTextRange.Text)
EndTime = CDate(zTextRange.Text)
eTextRange.Text = Format$((EndTime - StartTime), "HH:mm")
End With

Thank you in advance...

JJ

[SamT]

If aTextRange and zTextRange are Date and Time then

StartTime = DateValue(aTextRange.Text)
EndTime = DateValue(zTextRange.Text)
eTextRange.Text = Format$((EndTime - StartTime), "HH:mm")

Else

StartTime = DateValue(aTextRange.Text)
EndTime = DateValue(zTextRange.Text)
If StartTime > EndTime Then EndTime = EndTime + 1
eTextRange.Text = Format$((EndTime - StartTime), "HH:mm")

[JinkyJulie]

Oh my SamT!!!! It was that simple!?!?!? It works!!!!!

Thanks you so very much!!!!!! :clap:

JJ