الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حساب الوقت

مغلق
بدأه هاوي اكسيس في 4 نوفمبر 2005 · 2 رد · 789 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذا كود حساب الوقت والدقائق بدون نسبة مئوية

فعندما نقوم باحتساب الدقائق وتحويلها الى ساعة تظهر لنا نسبة الدقائق

مثلا 95 دقيقة = 01:35 وليس 1.5833333

وهذا هو الكود

    Dim g As ADODB.Recordset
    Dim min_to_hours As Integer
    Dim j_min As Integer
    Dim k_hour As Integer
    Dim mm As Integer
    Set g = New ADODB.Recordset
    If g.RecordCount = 0 Then
        MsgBox "عفوا لا توجد سجلات متأخرين لهذا الشهر", vbInformation + vbMsgBoxRtlReading + vbMsgBoxRight, "لا توجد سجلات"
    Exit Sub
    End If
    Me.MouseWheel = 
    Do While Not g.EOF
        j_min = g!min
        k_hour = g!hours
        Do While j_min > 59
            j_min = j_min - 60
            k_hour = k_hour + 1
        Loop
        mm = k_hour
        If mm > 6 Then
            Do While mm > 6
                mm = mm - 7
            Loop
            k_hour = k_hour - mm
end sub
[code]
واتمنى منكم الدعاء  في ظهر الغيب 
تحياتي

      
      

      
    

  

    
    

      
#2
        
        

      
اسف هذي هي المعادلة الصحيحة فقد استعجلت في نسخ اشياء لم تكن لها داعي سهواا
Dim j_min As Integer
    Dim k_hour As Integer
  j_min = g![min]
        k_hour = g![hours]
        Do While j_min > 59
            j_min = j_min - 60
            k_hour = k_hour + 1

      
تم تعديل هذه المشاركة بواسطة فهد الدوسري في 5 نوفمبر 2005 في 23:51

      

      
    

  

    
    

      
#3
        
        

      
شكرا لك أخي لنشرك للعلم النافع .
قمت بتعديل المشاركة الخاصة بالكود ليظهر بالصورة التي يجب أن يكون عليها الأكواد في المنتدى ليسهل قراءتها .
تحياتي ..

      
      

      
    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة