منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طريقة جمع الوقت لأكثر من 24 ساعة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

عندي مشكلة وحاولت لكن مالقيت الحل


أريد أن أحسب دقائق أوساعات التأخر لموظف يتم الحساب بشكل منتظم ولكن تظهر المشكلة عندما يتجاوز عدد الساعات والدقائق 24 ساعة تظهر عندي المشكلة وهي أن إحتساب يبدأ من جديد
للتوضيح أكثر
نفرض مثلاً أن مجموع التأخر لموظف هو 20:30  (  عشرون ساعة وثلاثون دقيقة )  ثم تأخر الموظف عن عمله 6 ساعات المفترض هنا يصبح المجموع 26:30   ولكن مايحصل أنه يقوم بإظهار المجموع كالتالي  02:30 بمعنى يصل 24 ساعة ثم يحسب من جديد
أتمنى السؤال يكون واضح 
 لكم جزيل الشكر 
دمتم بود 


 

Dim Difference3 As TimeSpan = TimeSpan.Parse(TextBox17.Text) + TimeSpan.Parse(TextBox5.Text)



 

TextBox18.Text = Difference3.ToString


TextBox18.Text = Strings.Right("0" & Difference3.Hours, 2) & ":" & Strings.Right("0" & Difference3.Minutes, 2) 
و عليكم السلام و رحمة الله و بركاته

كود :
       TextBox17.Text = "20:30:00"
       TextBox5.Text = "06:00:00"
       Dim Duration As Double = TimeSpan.Parse(TextBox17.Text).TotalHours + TimeSpan.Parse(TextBox5.Text).TotalHours
       TextBox18.Text = Math.Floor(Duration) & ":" & (Duration Mod 1) * 60
الله بعطيك العافية أخي لكن تظهر عندي نفس النتيجة يحسب لغاية 24 ساعة ثم يحسب من جديد
أنا أريده أن يستمر بالحساب أكثر من 24 ساعة مثلا 29 ساعة أو 35 ساعة أو أكثر ..............ززززز الأهم عندي الاستمرار طبعا بدون التحويل لأيام فقط ساعات ودقائق

لكم جزيل الشكر
دمتم بود
السلام عليكم ورحمة الله وبركاته

 اخواني لقد أحرجتموني حتى أنني صرت أخجل من أن أطرح سؤالاً  آخر لكم مني أزكى التحية بارك الله فيكم
 

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

دمتم بود