Dim Time1 As String
Dim Time2 As String
Dim Hours As Long
Dim Minutes As Long
Time1 = "40644:30:00"
Time2 = "20:15:00"
Hours = CLng(Split(Time1, ":")(0)) + CLng(Split(Time2, ":")(0))
Minutes = CLng(Split(Time1, ":")(1)) + CLng(Split(Time2, ":")(1))
Hours = Hours + CLng(Minutes / 60 - 0.5)...