Private Sub Grid1_RowLoaded(ByVal nRow As Long, oItem As sevDataGrid2.ListItem
  With oItem
    .CellText(4) = CalcTime(.CellText(1), .CellText(2), .CellText(3))
  End With
End Sub

Public Function CalcTime(ByVal vStart As String, ByVal vPause As String, ByVal _
  vEnde As String) As String
  ' Zeit-Differenz berechnen und formatiert zurückgeben
  Dim nMin As Long
  Dim nStd As Long
 
  nMin = GetMin(vEnde) - GetMin(vStart) - GetMin(vPause)
 
  nStd = Int(nMin / 60)
  nMin = nMin - (nStd * 60)
 
  CalcTime = Format$(nStd, "00") & ":" & Format(nMin, "00")
End Function
 
Private Function GetMin(ByVal sTime As String) As Long
  ' Zeitformat in Minuten umrechnen
  Dim nPos As Long
 
  nPos = InStr(sTime, ":")
  If nPos > 0 Then
    GetMin = Val(Left$(sTime, nPos - 1)) * 60 + Val(Mid$(sTime, nPos + 1))
  Else
    GetMin = Val(sTime)
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de