(03-10-18, 07:32 PM)rnmr كتب : جرب هذا

كود :

Dim columnIndex As Integer = 0 ' رقم العمود
Dim h, m As Integer
For Each r As DataGridViewRow In Me.DataGridView1.Rows
   If Not IsNothing(r.Cells(columnIndex).Value) Then
       h += r.Cells(columnIndex).Value.ToString.Split(":")(0)
       m += r.Cells(columnIndex).Value.ToString.Split(":")(1)
   End If
Next
If m > 59 Then
   h += Math.Ceiling(m / 60)
   m = m Mod 60
End If
Dim result As String = String.Format("{0}:{1}", h, m)

Me.TextBox1.Text = result

---

تم تعديل حساب الدقائق

(03-10-18, 08:05 PM)بيسك لكل العرب كتب : الخطاء هنا 

تعديل هذا السطر 

كود :

           h += Math.Floor(m / 60)

(03-10-18, 08:02 PM)rnmr كتب : اعتذر إليك

تم تعديل الكود