엑셀 :의 총합 [H] : I 다소 차이를 합산 할 수</p> <p>mm : mm 포맷 열

I는 날짜 1, 날짜 2를 도시 엑셀 파일, 그리고 그들 사이의 차이 [H] 포맷을 이 날짜에. 그것은 0으로 합산됩니다. C6는 입력에엑셀 :의 총합 [H] : I 다소 차이를 합산 할 수</p> <p>mm : mm 포맷 열

Public Function Addtime(rIn As Range) As String 
    Dim c As String, m As String, r As Range, v As String 
    Dim ttime As Long, zum As Long, b As Boolean 
    c = ":" 
    m = "-" 
    zum = 0 
    For Each r In rIn 
     v = r.Text 
     If InStr(v, c) > 0 And v <> "" Then 
      ary = Split(Replace(v, m, ""), c) 
      b = (Left(v, 1) = m) 
      ttime = 60 * CLng(ary(0)) + CLng(ary(1)) 
      If b Then 
       zum = zum - ttime 
      Else 
       zum = zum + ttime 
      End If 
     End If 
    Next r 

    abszum = Abs(zum) 
    While abszum > 59 
     hours = hours + 1 
     abszum = abszum - 60 
    Wend 
    minutes = abszum 
    Addtime = CStr(hours) & c & CStr(minutes) 
    If zum < 0 Then 
     Addtime = m & Addtime 
    End If 
End Function

다음 : enter image description here 내가 친절하게 도움을 요청 , 내가 찾을 수있는 아무 대답이 어디

T1     T2      Variance 
2014/04/16 12:00 2014/04/15 14:00  =IF(B2-A2<0,"-"&TEXT(ABS(B2-A2),"[h]:mm"),TEXT(ABS(B2-A2),"[h]:mm")) 
2014/05/16 12:00 2014/04/15 16:10  =IF(B3-A3<0,"-"&TEXT(ABS(B3-A3),"[h]:mm"),TEXT(ABS(B3-A3),"[h]:mm")) 
2014/04/15 15:00 2014/04/15 16:00  =IF(B4-A4<0,"-"&TEXT(ABS(B4-A4),"[h]:mm"),TEXT(ABS(B4-A4),"[h]:mm")) 
2014/04/15 15:00 2014/05/15 16:00  =IF(B5-A5<0,"-"&TEXT(ABS(B5-A5),"[h]:mm"),TEXT(ABS(B5-A5),"[h]:mm"))

출처

2014-05-22 Peter PitLock

** C ** 열의 값은 ** 텍스트입니다. **이 값의 SUM()은 0입니다. –