ارجوكم المساعدة في حساب الوقت

ارجوكم يا جماعة الخير تحركو معي ، لأني وجدت هذه الداله لكنها لا تفي بكل الغرض

=C7-B7+IF(C7<B7;1)

سوف أشرح لكم كيف لا تفي بالغرض ، لأنها تتعامل مع ساعات اليوم كلها وأنا أريد فقط ساعات الدوام ، كذلك لا تتعامل مع التاريخ وأنا اريد حساب التاريخ حيث ممكن الباص يكوم في عهدة السائق لعدة أيام ...

أرجوكم المساعدة فأنا في الانتظار

شكراً مقدماً

اخي الكريم

انت عقدتها على نفسك وصعبتها علينا

يا ريت لو تحاول تبسيط المسألة لان الإكسل برنامج بسيط وليس لغة برمجة

يعني حاول قدر الامكان وصف المشكلة بشكل اسهل واوسع لكي نستطيع مساعدتك

صديقي لقد قمت بكتابة دالة بسيطة تقوم باحتساب عدد الدقاءق أو الساعات إذا اردت بين تاريخين اسمها calchour

Public Function CalcHour(Date1 As Date, date2 As Date) As Double
    dd = Date1
    i = 0
    Do While dd < date2
        dd = dd + (1 / 24) / 60
        i = i + 1
    Loop
    CalcHour = i
End Function

وقد أرفقت مثل

اقتباس

لا تنسى تفعيل الماكرو عند البدء

Book1.zip

الله يجزاكم ألف ألف خير على الرد ، سوف أجرب مثال الأخ لبناني ومن ثم أرد عليكم ( عذراً ) ، وسوف أشرح لكم بالتفصيل ما أريده

جزاكم الله ألف ألف خير يا حبايب

بادي

الأخ لبناني عذراً لم أستطع من تنزيل مرفقاتك ، ممكن تساعدني في ذلك ،

الإخوة الأفاضل ، ما أريده هو حساب الوقت الذي بقي فيه الباص مع السائق ، حيث يحسب ساعات العمل فقط ، كما ذكرت لكم ساعات العمل من 5 صباحاً حتى 1مساء ً فمثلا إذا السائق أخذ السيارة في تمام الساعة 12 ظهراً من يوم 4/10/2004 وأعادها في يوم 7/10/2004 الساعة 10 صباحاً فسوف يتم حساب عدد الساعات العملية التي بقي الباص في حوزته ، أي لن يتم ساعات ما بعد الدوام .

أنا وجدت دوال كثيرة منها :

networkdays

لكنها لم تفي بالغرض حتى الآن ...

أرجو المساعدة بأسرع ما يمكن ... في الانتظار

والله الموفق

بادي

عذراً أخي لبناني ، بحثت على الداله المذكورة أعلاه CalcHour ولم أجدها علماً أني أتعامل مع أوفيس 2003

والله يحفظك ... في انتظار ردك

اخي هذه الدالة أنا قد كتبتها وأضفتها الى الملف

هذه هي

Public Function CalcHour(Date1 As Date, date2 As Date) As Double
   dd = Date1
   i = 0
   Do While dd < date2
       dd = dd + (1 / 24) / 60
       i = i + 1
   Loop
   CalcHour = i
End Function

Book1.rar

ما شاء الله عليك إنت معاي على الخط ، الله يوفقك وأتمنى أن تكون معاي على الخط إلى النهاية

أود أن أسئل أين أضع هذه الداله لأني جديد على هذه الأكواد

شاكراً لك ومقدراً

ارجوك لا تطفش مني وتقول هذا ما يفهم اي حاجة ، خليك معاي على الخط لأني في انتظارك

والله يجعل لك في كل خطوة سلامة

اللهم آمين

بادي