تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد تعديل الكود ليعمل على صف فى داتا جريد
#11
لكن الكود لا يعمل على الوقت لو بصيغة AM PM

وربنا يوفقك ومنظر منك الدعم لانى مش قادر اوصل لحل
الرد }}}
تم الشكر بواسطة: سعود , سعود
#12
(29-11-21, 12:54 AM)new_programer كتب : لكن الكود لا يعمل على الوقت لو بصيغة AM     PM

وربنا يوفقك   ومنظر منك الدعم   لانى مش قادر اوصل لحل

الـam  و الـ pm  لا تجتمع مع تنسيق زي كذا: 

PHP كود :
01:20:33 am 


اما تستخدم نظام 12 ساعة مع am pm او تستخدم نظام 24 ساعة من دون am pm
الرد }}}
تم الشكر بواسطة:
#13
يسمحلي اخي سعود بهذا التعديل
يعمل سواء ب am/pm او بدونها لاي خلية
كود :
For Each r As DataGridViewRow In DataGridView1.Rows
   If r.IsNewRow Then Exit For
   Dim t = CDate(r.Cells(4).Value) - CDate(r.Cells(3).Value)
   r.Cells(5).Value = String.Format("{0:00}:{1:00}", t.Hours, t.Minutes)
Next
في حال عدم وجود am/pm في وقت الحضور او وقت الانصراف فسيعتبر الوقت بنظام 24h
الرد }}}
تم الشكر بواسطة: سعود , new_programer
#14
(29-11-21, 10:35 AM)E100 كتب : يسمحلي اخي سعود بهذا التعديل
يعمل سواء ب am/pm او بدونها لاي خلية
كود :
For Each r As DataGridViewRow In DataGridView1.Rows
   If r.IsNewRow Then Exit For
   Dim t = CDate(r.Cells(4).Value) - CDate(r.Cells(3).Value)
   r.Cells(5).Value = String.Format("{0:00}:{1:00}", t.Hours, t.Minutes)
Next
في حال عدم وجود am/pm في وقت الحضور او وقت الانصراف فسيعتبر الوقت بنظام 24h

تمام تسلم  اخي الغالي  
                                       E100
الكود الخاص لك يعمل 

والحمد لله   توصلت لتعديل الكود   الخاص بي   والكودين بيظهرو نفس النتجية 

الخاص بعد التعديل :
      
كود :
     For Each row As DataGridViewRow In DataGridView1.Rows
           If row.IsNewRow = False Then
               Dim TotalMinit As Integer = 0
               Dim TotalHour As Integer = 0
               TotalMinit = DateDiff(DateInterval.Minute, row.Cells(3).Value, row.Cells(4).Value)  ' حساب الفرق بالساعة بين الحضور والانصراف
               If TotalMinit > 59 Then
                   TotalHour += Math.Floor(TotalMinit / 60)
                   TotalMinit = TotalMinit Mod 60
                   Dim TotalTime As String = TotalHour.ToString("00") & ":" & TotalMinit.ToString("00")
                   row.Cells(5).Value = TotalTime
               Else
                   row.Cells(5).Value = "00:" & TotalMinit.ToString("00")
                   'row.Cells(5).Value = "00"
               End If
           End If
       Next
لكن محتاج طلب اخر لمواصلة العمل 
ازاى اقدر اعمل استعلام عن الوقت الدخول فقط اللى هو اقل من الساعة 05:30 مساء
علشان الداتا متسجلة  فى قاعدة البيانات بالشكل دة 
1/1/22021 08:30
1/1/2021 05:30
الرد }}}
تم الشكر بواسطة:
#15
كود :
Dim t = If(CDate(r.Cells(4).Value) < CDate(r.Cells(3).Value), CDate(r.Cells(4).Value).AddHours(12), CDate(r.Cells(4).Value)) - CDate(r.Cells(3).Value)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,358 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996

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


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