[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته

 الإخوة الأعزاء أريد أن لدي مشكلة سألت عنها قبل أكثر من شهر ولكن لم أجد الحل وأعذر الأخوة لعدم ردهم لمعرفتي بأنهم لو وجدوا الوقت الكافي فإنهم لم يترددوا في الإجابة وأنا أعيد السؤال هنا لأني حاولت كثيرا ولم أجد الحل وقد أرهقني كثيراً

والسؤال هو



يوجد عندي حساب للوقت في عمود الداتاقريد فيو  والوقت المحسوب هو حساب تأخر الموظفين وتجري عندي عملية الجمع بشكل رائع ولكن عند تجاوز المجموع أربع وعشرين ساعة تبدأ عندي المشاكل بحيث أنه إما تظهر عندي رسالة خطأ تقول أن العدد كبير أو يحصل تصفير للمجموع ويبدأ الحساب من جديد ويلغي فترات التأخر السابقة المطلوب هو أن يستمر بعملية الجمع حتى لو وصل المجموع  100 ساعة بحيث مثلا يكتب مجموع التأخر  39:44  يعني  المجموع تسع وثلاثين ساعة وأربع وأربعين دقيقة وهكذا وجربت كذلك الجمع بواسطة التكست بوكس وتظهر لي نفس المشكلة ماعندي مشكلة لو حولها الى أيام وساعات المهم يستمر بعملية الحمع يعني مثلا يقول لي المجموع هو يوم وخمس عشر ساعة و أربع وأربعون دقيقة


آسف أطلت السؤال

لكم جزيل الشكر

دمتم بود



طريقة التكست بوكس هذا الكود اللي جربته

　

Dim Difference5 As TimeSpan = TimeSpan.Parse(TextBox12.Text) - TimeSpan.Parse(TextBox81.Text)

TextBox82.Text = Strings.Right("0" & Difference5.Hours, 2) & ":" & Strings.Right("0" & Difference5.Minutes, 2)

وبالنسبة للعمود هذا الكود المستخدم

Try

TextBox81.Clear()

Dim columnIndex1 As Integer = 17

Dim h1, m1 As Integer

For Each r1 As DataGridViewRow In Me.DataGridView3.Rows

If Not IsNothing(r1.Cells(columnIndex1).Value) Then

h1 += r1.Cells(columnIndex1).Value.ToString.Split(":")(0)

m1 += r1.Cells(columnIndex1).Value.ToString.Split(":")(1)

End If

Next

If m1 > 59 Then

h1 += Math.Floor(m1 / 60)

m1 = m1 Mod 60

End If

Dim result1 As String = String.Format("{0}:{1}", h1, m1)

Me.TextBox81.Text = result1

　

Catch ex As Exception

End Try