lıstwıev ile dakikaları toplatma

[yusuf66]

Aşağıdaki makroda excelde [dd] biçimindeki zamanları liswıev içinde topluyorum ancak hücrede 71 dk olarak görünen rakam listwıev ekranına 4.9999 gibi saçma bir rakam olarak geliyor.hücredeki dakika olarak gözüken rakamları toplamak için makroya nasıl bir ilave yapmam gerekir.Sayın hocalarımdan yardım rica ediyorum.

Private Sub CommandButton5_Click()
Dim sat As Long, i As Byte
Dim z As Object, vkey
ListView1.ListItems.Clear
Set z = CreateObject("Scripting.Dictionary")
With Sheets("Sayfa1")
For i = 55 To 78 Step 2
If .Cells(65536, i).End(xlUp).Row > sat Then sat = _
.Cells(65536, i).End(xlUp).Row
Next i
For i = 55 To 78 Step 2
For k = 2 To sat
If .Cells(k, i).Value <> "" And .Cells(k, "A").Value >= _
DTPicker1.Value And .Cells(k, "A").Value <= DTPicker2.Value Then
If Not z.exists(.Cells(k, i).Value) Then
z.Add .Cells(k, i).Value, .Cells(k, i + 1).Value
Else
z.Item(.Cells(k, i).Value) = z.Item(.Cells(k, i).Value) _
+ .Cells(k, i + 1).Value
End If
End If
Next
Next
End With
For Each vkey In z
X = X + 1
ListView1.ListItems.Add , , vkey
ListView1.ListItems(X).SubItems(1) = z.Item(vkey)
Next
End Sub