''' <summary>
''' FUNCTION TO CALCULATE SUM OF TWO TIME VALUES
''' PASS TWO DATE VALUES AS STRING
''' </summary>
Function GetTimeSum(ByVal dt1 As String, ByVal dt2 As String) As String
Dim ReturnStr As String = ""
If dt1 = "" And dt2 <> "" Then
Return dt2
ElseIf dt1 <> "" And dt2 = "" Then
Return dt1
End If
Dim Min1 As Integer = dt1.Substring(dt1.IndexOf(":") + 1) 'MINITUE OF FIRST DATE
Dim Min2 As Integer = dt2.Substring(dt2.IndexOf(":") + 1) 'MINIUTE OF SECOND DATE
Dim Hour1 As Integer = dt1.Substring(0, dt1.IndexOf(":")) 'HOURS OF FIRST DATE
Dim Hour2 As Integer = dt2.Substring(0, dt2.IndexOf(":")) 'HOURS OF SECOND DATE
Dim TotalHour As Integer = Hour1 'TOTAL HOURS
Dim TotalMin As Integer = 0 'TOTAL MINUTES
Dim ExtraMin As Integer = 0
If Min1 + Min2 > 60 Then
ExtraMin = 60 - Min1
TotalHour += 1
TotalMin = Min2 - ExtraMin
Else
TotalMin = Min1 + Min2
End If
TotalHour += Hour2
If TotalHour.ToString.Length = 1 Then
TotalHour = "0" & TotalHour
End If
If TotalMin.ToString.Length = 1 Then
TotalMin = "0" & TotalMin
End If
ReturnStr = TotalHour.ToString & ":" & TotalMin.ToString
Return ReturnStr
End Function
