[نور الهدى الهدى]

السلام عليكم

الرجاء المساعدة في جمع عمود الوقت في الداتا قريد فيو

مثال

الصف الاول 100:45
الصف التاني 09:00
وهكذا
=
109:45

[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.Floor(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, 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

---

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

مشكور أخي على تعاونك ولكن الناتج غير دقيق يوم بإضافة ساعة ارجو التوضيح او التعديل

[نور الهدى الهدى]

90:54
66:54
=158.48

والنتاج الحقيقي 

157:48

[rnmr]

اعتذر إليك

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

[بيسك لكل العرب]

الخطاء هنا 

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

كود :

           h += Math.Floor(m / 60)

[نور الهدى الهدى]

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

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

كود :

           h += Math.Floor(m / 60)

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

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

اخي [b]rnmr[/b] اخي [b]بيسك لكل العرب[/b]
الكود تماااام مشكورين على المساعدة وسرعة الاستجابة جعلها الله في ميزان حسناتكم