تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب مجموع الايام والساعات والدقائق
#1
يا اخواني السلام عليكم 

عندي الكودات البرمجية التالية لحساب مجموع الساعات ويعطي نتيجة المجموع بعدد الساعات والدقائق واذا زاد المجموع عن 24 ساعة لا يعطي الايام شو الحل افيدوني بارك الله فيكم 

 Dim MyDateTime As DateTime = Nothing
        Dim MyTimeSpan As New TimeSpan
        For Each S As String In ListBox1.Items
            MyDateTime = DateTime.Parse(S)
           (( MyTimeSpan = MyTimeSpan.Add(New TimeSpan(MyDateTime.Hour, MyDateTime.Minute, 0))
        Next
        TextBox1.Text = MyTimeSpan.Days & "/" & MyTimeSpan.Hours & ":" & MyTimeSpan.Minutes

ل

عند اضافة mydatetime.day  بتعطيني رقم كبير ومش فاهم شو الطريقة

للتوضيح اقوم باضافة الساعات داخل listboxوتكون كالتالي مثلا  2:00+5:00+24:00+13:15
فيعطيني الناتج 1/20:15
date = 1
hours = 20
min = 15
الرد }}}
تم الشكر بواسطة:
#2
تم اجراء الحل بس يمكن في شئ افضل

 Dim MyDateTime As DateTime = Nothing
        Dim MyTimeSpan As New TimeSpan
        Dim a As Integer = 0
        Dim a1 As Integer = 0
        Dim x As Integer = 0
        For Each S As String In ListBox1.Items

            MyDateTime = DateTime.Parse(S)

            MyTimeSpan = MyTimeSpan.Add(New TimeSpan(MyDateTime.Hour, MyDateTime.Minute, 0))
            a += MyDateTime.Hour
        Next
        a1 = (a - MyDateTime.Hour) / 24
        If (MyTimeSpan.Minutes) < 10 Then
            TextBox1.Text = a1 & " / " & MyTimeSpan.Hours & ":" & "0" & MyTimeSpan.Minutes
        Else
            TextBox1.Text = a1 & " / " & MyTimeSpan.Hours & ":" & MyTimeSpan.Minutes
        End If
الرد }}}
تم الشكر بواسطة: elgokr
#3
الكود المستخدم لعرض عدد الساعات و عدد الايام

هو الافضل لك واذا تم عمل عليه بعض اللمسات سيكون فقط فى الجزء التالى مثل
كود :
TextBox1.Text = a1 & " / " & MyTimeSpan.Hours & ":" & "0" & MyTimeSpan.Minutes

لعمل دمج ولكن سيتم ذلك على اكثر من سطر 
لذلك بدلاً من اللمسات فالاضل الطريقة التى قمت باستخدامها

فتحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#4
جرب هذا التعديل
كود :
Dim MyTimeSpan As New TimeSpan
For Each S As String In ListBox1.Items
   MyTimeSpan = MyTimeSpan.Add(New TimeSpan(Int(S.Split(":")(0)), Int(S.Split(":")(1)), 0))
Next
TextBox1.Text = MyTimeSpan.Days & "/" & MyTimeSpan.Hours & ":" & MyTimeSpan.Minutes
الرد }}}
تم الشكر بواسطة: elgokr
#5
اشكرك اخي الكريم بارك الله فيك في ميزان حسناتك ان شاء الله  Shy
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#6
الحمد لله.
الرد }}}
تم الشكر بواسطة: elgokr , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب المبلغ الاجمالي العيدروس 7 63 منذ 3 ساعة مضت
آخر رد: العيدروس
  حساب عدد الطلاب محمد خيري 4 117 12-03-24, 02:07 PM
آخر رد: محمد خيري
  حساب المبلغ الإجمالي محمد خيري 2 300 30-01-24, 08:08 PM
آخر رد: محمد خيري
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [VB.NET] حساب ايام اجازة بدون ايام الجمعة والسبت وعطلات البلد ahmed_king2023 0 454 05-06-23, 03:48 PM
آخر رد: ahmed_king2023
  إستخدام CheckBox لتعطيل أو تفعيل مجموع الأدوات YANNOURI 3 436 17-04-23, 04:49 AM
آخر رد: Taha Okla
  حساب عدد الشهور بين تاريخين kebboud 4 623 12-04-23, 03:22 PM
آخر رد: kebboud
  [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز mac9 4 709 11-04-23, 10:23 AM
آخر رد: mac9
  حساب خانة في الداتا قريد فيو DOX.1 6 2,192 06-03-23, 01:18 AM
آخر رد: المتألق9

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


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