تقييم الموضوع :
  • 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 ( الرقم بعد الفاصلة للأيام )
تمام التمام
الله ينورك و يزيدك من فضله استاذنا الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية منع ظهور الأخطاء من إعدادات البيسيك mmaalmesry 2 848 29-08-25, 10:30 AM
آخر رد: mmaalmesry
  كيفية جلب أسماء الأعمدة بجدول من جداول sql heem1986 2 745 17-08-25, 09:15 PM
آخر رد: heem1986
  كيفية حفظ إعدادات البرنامج بحيث لا تتغير أحمد إبراهيم سعد 4 3,001 06-08-25, 06:34 PM
آخر رد: Taha Okla
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,222 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  ايجاد حساب المجموع من فضلكم محمد خيري 2 351 07-02-25, 10:12 PM
آخر رد: محمد خيري
  كيفية احتساب الفرق بين تاريخين بناء على عدد معين مصمم هاوي 2 554 15-01-25, 02:02 PM
آخر رد: مصمم هاوي
  كيفية التعامل مع inputbox في فيجوال ستوديو أسامة حسين 4 3,503 14-01-25, 02:04 AM
آخر رد: أبو خالد الشكري
  كيفية معرفة الجهاز رئيسي ام فرعي المتألق9 1 396 13-11-24, 06:41 PM
آخر رد: justforit
  كيفية معرفة تاريخ انشاء ملف وحدفه المتألق9 2 504 07-11-24, 08:54 AM
آخر رد: F.H.M
  حساب عدد الشيك بكس العيدروس 7 466 06-11-24, 08:38 PM
آخر رد: العيدروس

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


يقوم بقرائة الموضوع: