تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية حساب مجموع عدة اوقات
#1
السلام غليكم و رحمة الله و بركاته
لديا ليست  بوكس يتم تعبئتها باوقات مختلفة بهذا السياق 00:00:00 اذا كان الوقت يحوي قيمة ساغات و بهذا السياق
00:00 اذا كان الوقت لا يحوي ساعات
فكيف يمكن حساب الزمن الكلي لتلك الاوقات بمختلف صياغتها او قيمتها لعرضها في تكست بوكس بذات السياق 00:00:00
اي ساعات و دقائق و ثواني
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

كود :
       Dim TotalTime As TimeSpan
       For Each Tim In Me.ListBox1.Items
           Dim ItemString As String = Tim.ToString
           If ItemString <> String.Empty Then
               Dim ItemTimeSpan As TimeSpan
               If ItemString.Split(":").Length > 2 Then
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "HH:mm:ss", Nothing).TimeOfDay
               Else
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "mm:ss", Nothing).TimeOfDay
               End If
               TotalTime = TotalTime.Add(ItemTimeSpan)
           End If
       Next
       MsgBox(TotalTime.ToString)

إذا كان الناتج أقل من أو يساوي 60 دقيقة النتيجة ستكون بهذا السياق : 00:59:59 ( مع وجود 00 في خانة الساعات ) ( بلإمكانة تهيئة النص بالشكل الذي تريدة )
إذا كان الناتج أقل من أو يساوي 24 ساعة النتيجة ستكون بهذا السياق : 01:06:00
إذا كان الناتج أكبر من 24 ساعة النتيجة ستكون بهذا السياق : 1.01:06:00 ( الرقم بعد الفاصلة للأيام )
الرد }}}
تم الشكر بواسطة: asmarsou
#3
(25-11-22, 01:39 AM)عبدالله الدوسري كتب : وعليكم السلام ورحمة الله وبركاته

كود :
       Dim TotalTime As TimeSpan
       For Each Tim In Me.ListBox1.Items
           Dim ItemString As String = Tim.ToString
           If ItemString <> String.Empty Then
               Dim ItemTimeSpan As TimeSpan
               If ItemString.Split(":").Length > 2 Then
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "HH:mm:ss", Nothing).TimeOfDay
               Else
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "mm:ss", Nothing).TimeOfDay
               End If
               TotalTime = TotalTime.Add(ItemTimeSpan)
           End If
       Next
       MsgBox(TotalTime.ToString)

إذا كان الناتج أقل من أو يساوي 60 دقيقة النتيجة ستكون بهذا السياق : 00:59:59 ( مع وجود 00 في خانة الساعات ) ( بلإمكانة تهيئة النص بالشكل الذي تريدة )
إذا كان الناتج أقل من أو يساوي 24 ساعة النتيجة ستكون بهذا السياق : 01:06:00
إذا كان الناتج أكبر من 24 ساعة النتيجة ستكون بهذا السياق : 1.01:06:00 ( الرقم بعد الفاصلة للأيام )
تمام التمام
الله ينورك و يزيدك من فضله استاذنا الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 3 1,015 23-11-22, 11:29 PM
آخر رد: Mostafa201255411
  كيفية انشاء برنامج بكلمة سر crazykinko 7 410 08-11-22, 12:12 PM
آخر رد: crazykinko
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 2 240 01-11-22, 10:16 AM
آخر رد: محمدعبدالسلام
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 0 149 30-10-22, 10:56 PM
آخر رد: محمدعبدالسلام
  [VB.NET] طلب كود حساب عدد ايام الجمعة في كل شهر moftah70 2 255 23-10-22, 05:06 PM
آخر رد: moftah70
  بالفيديو كيفية عمل تحديث للبرنامج crazykinko 2 512 22-10-22, 12:48 PM
آخر رد: ابو روضة
  [VB.NET] كيفية تنفيذ كود معين كل يوم او يومين ميدو الفنان 6 364 10-10-22, 08:18 PM
آخر رد: ميدو الفنان
  [سؤال] كيفية تصدير اعمدة محددة من الداتا قريد الي الاكسل عبدالكريم برشدان 3 1,421 10-10-22, 09:29 AM
آخر رد: أبووسم
  حقل مجموع في كريستال ريبورت ali_ahmed12 2 158 07-10-22, 07:57 PM
آخر رد: ali_ahmed12
  كيفية منع تكرار اسم منتج موجود مسبقا ali_ahmed12 0 155 29-09-22, 04:49 PM
آخر رد: ali_ahmed12

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


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