مشكلة مع التوقيت - وحسابه

أخي الكريم ..

لماذا تصر أن يكون الكسر بالدقائق ؟؟

دعه كنسبة

يعني 4.25 أو 12.5

ما المشكلة ؟؟

أما إذا أردت إظهاره كدقائق يعني 12.22 .. أي 12 ساعة و 22 دقيقة وكان الهدف هو حساب المبلغ المقابل بحيث كل دقيقة تشاوي مبلغ كذا ..

عندها نصمم Function خاص لجمع الأرقام

فقط حدد ما هو المطلوب

عزيزي

اظهار الساعة ككسر عادي ممكن ولكن كنموذ رسمي يجب ان يكون بالدقيقة

كما انه من كثرة التفكير بالموضوع والاستشارات الكثيرة التي قمت بها كلي شوق لمعرفة الطريقة لحل هذه المشكله - للخبرة ايضاً

مع جزيل الشكر

إذا كان اسم حقل الساعات الإضافية Ex نكتب الدالة التالية ضمن الفورم

Private Function TimeSum() As Single
   Dim E As Single, I As Single
   E = DSum("int([Ex])", Me.RecordSource)
   I = DSum("[Ex]", Me.RecordSource) - E
   E = E + I \ 60
   E = E + (I Mod 60) / 100
   TimeSum = E
End Function

ثم نعين مصدر عنصر التحكم في مربع النص حيث نريد إظهار النتيجة:

=TimeSum()