تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جمع عمود الوقت في الداتا قريد فيو
#1
السلام عليكم

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

مثال

الصف الاول 100:45
الصف التاني 09:00
وهكذا
=
109:45
الرد
تم الشكر بواسطة:
#2
جرب هذا
كود :
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
الرد
تم الشكر بواسطة: نور الهدى الهدى
#3
(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

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

مشكور أخي على تعاونك ولكن الناتج غير دقيق يوم بإضافة ساعة ارجو التوضيح او التعديل
الرد
تم الشكر بواسطة: rnmr
#4
90:54
66:54
=158.48

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

157:48
الرد
تم الشكر بواسطة: rnmr , rnmr
#5
اعتذر إليك

تم تعديل الكود
الرد
تم الشكر بواسطة: نور الهدى الهدى
#6
الخطاء هنا 

تعديل هذا السطر 
كود :
           h += Math.Floor(m / 60)
الرد
تم الشكر بواسطة: rnmr , rnmr , نور الهدى الهدى , elgokr
#7
(03-10-18, 08:05 PM)بيسك لكل العرب كتب : الخطاء هنا 

تعديل هذا السطر 
كود :
           h += Math.Floor(m / 60)


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اترتيب الداتا قريد فيو المتألق9 6 113 14-12-18, 10:06 PM
آخر رد: المتألق9
  تغيير لغة الجداول فى الداتا جريد احمد خطاب 3 97 06-12-18, 09:27 PM
آخر رد: Emam emam
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 49 06-12-18, 04:36 PM
آخر رد: dubai.eig
  [VB.NET] سؤال عن الداتا جريد فيو M.SOFT 1 74 04-12-18, 04:31 AM
آخر رد: محمد كريّم
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 134 01-12-18, 12:48 AM
آخر رد: حريف برمجة
  الاضافة والتعديل والحذف من خلال الداتا جريد فيوا makky 2 107 30-11-18, 10:36 PM
آخر رد: Rabeea Qbaha
  ربط الداتا قريدفيو بكمبوبوكس في الفورم alsihran 4 116 30-11-18, 12:14 AM
آخر رد: mero5000
  التننقل خلال الداتا جريد makky 2 112 28-11-18, 02:54 PM
آخر رد: makky
  سؤال لاخفاء عمود في الليست فيو Emam emam 2 77 25-11-18, 12:10 AM
آخر رد: Emam emam
  سؤال بخصوص القيد فى الداتا جريد احمد خطاب 4 107 24-11-18, 11:31 AM
آخر رد: احمد خطاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم