اطلب المساعدة في حل مشكلة حساب الوقت .. ادخل لتعرف

[b747400]

السلام عليكم و رحمةالله و بركاته

لا اعلم كيف اشكر الجميع على تواصلهم في تطوير هذا المنتدى

من خلال تصفحي للمواضيع .. تم الاستعانة ببعض البرامج من الاخوة الاعزاء

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

لم استطع ان ارفق المثال لفشل العملية

ساعات العمل : تختلف باختلاف الموظفين منهم 8 ساعات ومنهم 8:30

الفترات A- B - C

من يساعدني في حلها؟

[كمال النحال]

أخي الكريم

تحية طيبة وبعد ،،،،،،،،،،،،

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

مع خالص تحياتي لك بالتوفيق

http://www.arabteam2000-forum.com/index.php?showtopic=157438

[b747400]

مشكور اخي على التواصل

ولكن لم يتم حل مشكلتي

عموما الملف على المرفقات ..

TimeAttendance.rar

[rudwan]

أضف الدالة التالية الى الوحدة النمطية للنموذج

Function DateDif(F As Date, E As Date) As Date
Const F1 = #11:59:59 PM#

If Hour(F) <= Hour(E) Then
DateDif = E - F

Else
DateDif = DateAdd("n", 1, (F1 - F)) + E
End If

End Function

ثم قم بتعديل معادلة حساب الفرق في الوقت لتصبح

=datedif([EndTime],[timeout])

[b747400]

أضف الدالة التالية الى الوحدة النمطية للنموذج

Function DateDif(F As Date, E As Date) As Date
Const F1 = #11:59:59 PM#

If Hour(F) <= Hour(E) Then
DateDif = E - F

Else
DateDif = DateAdd("n", 1, (F1 - F)) + E
End If

End Function

ثم قم بتعديل معادلة حساب الفرق في الوقت لتصبح

=datedif([EndTime],[timeout])

------------

مشكور اخوي رضوان

احاول اسوي اللي قلت .. ليتك عدلت على المرفق جزاك الله خير

اكرر شكري

[rudwan]

اضافة الشرح في الرد فيه فائدة لبقية الأعضاء لمعرفة الاجابة مباشرة دون الغوص في كامل الملف

عموما هذا ملفك بعد التعديل

TimeAttendance.rar