سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة (/showthread.php?tid=36093) |
سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - جيولوجي مبتدئ - 13-08-20 السلام عليكم ورحمة الله وبركاته الإخوة الأعزاء أريد أن لدي مشكلة سألت عنها قبل أكثر من شهر ولكن لم أجد الحل وأعذر الأخوة لعدم ردهم لمعرفتي بأنهم لو وجدوا الوقت الكافي فإنهم لم يترددوا في الإجابة وأنا أعيد السؤال هنا لأني حاولت كثيرا ولم أجد الحل وقد أرهقني كثيراً والسؤال هو يوجد عندي حساب للوقت في عمود الداتاقريد فيو والوقت المحسوب هو حساب تأخر الموظفين وتجري عندي عملية الجمع بشكل رائع ولكن عند تجاوز المجموع أربع وعشرين ساعة تبدأ عندي المشاكل بحيث أنه إما تظهر عندي رسالة خطأ تقول أن العدد كبير أو يحصل تصفير للمجموع ويبدأ الحساب من جديد ويلغي فترات التأخر السابقة المطلوب هو أن يستمر بعملية الجمع حتى لو وصل المجموع 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
RE: سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - بلدي - 13-08-20 عليك بعرض مجموع الساعات TotalHours بدون الكسور باستخدام Math.Floor PHP كود : TextBox82.Text = Strings.Right("0" & Math.Floor(Difference5.TotalHours), 2) & ":" & Strings.Right("0" & Difference5.Minutes, 2) RE: سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - جيولوجي مبتدئ - 13-08-20 شكرا لك أخي على تفاعلك وسوف أرد بعد تجربة الكود
لك جزيل الشكر
دمتم بود
السلام عليكم ورحمة الله وبركاته شكراً لك أخي الكود شغال 1000/ 1000 حللت لي مشكلة عويصة بالنسبة لي وكما قلت سابقاً أنا أثق في هذا المنتدى والشكر لايكفي ولكن ندعو لكم في ظهر الغيب أن يوفقكم على ماتقدمونه من مساعدة للمبتدئين أمثالي في هذا المنتدى الرائع والفريد بالنسبة للمنطقة العربية أخيراً يعجز لساني عن الثناء عليكم لكم جزيل الشكر دمتم بود RE: سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - بلدي - 13-08-20 (13-08-20, 02:50 AM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته (13-08-20, 08:23 AM)جيولوجي مبتدئ كتب : اشكر لك مشاعرك الطيبه المعهوده من بلاد الحرمين فقليل من يعذر الاعضاء على التاخر في الرد وقليل من يشكر او حتى يرد على من شارك حظا طيبا اخي RE: سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - جيولوجي مبتدئ - 13-08-20 (13-08-20, 09:26 AM)بلدي كتب :(13-08-20, 02:50 AM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته بارك الله فيك RE: سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة - محمد كريّم - 13-08-20 http://vb4arb.com/vb/showthread.php?tid=35680&pid=164408#pid164408 |