تواجهنيي مشكله في بعض اجزاء البرنانج الذي اقوم بعمله وهي انه عندي وقت مححد لإنصراف العاملين وهو الساعة 3.30 مساءً وهناك بعض العاملين يقوم بالإنصراف بعد ذلك الميعاد مثلاً البعض ينصرف الساعة 7.00 مساءً والاخر ينصرف الساعة 6.50 مساءً
المطلوب ( ودا بعد اذنكم وفضلكم طبعا ) هو دالة او كود يقوم بحساب الفرق بين الساعة الفعلية لإنصراف العامل والساعة 3.30 ليكون هذا الفرق هو الوقت الإضافي الخاص بالعامل الذي قام به بعد ساعات العمل الرسمية
مشكورين اخواني علي المساعدة والله يوفق الجميع
أخي عبد المانع والله انتي بتحرجني بأدبك وردك السريع علي وانا ممنون جدا وشاكر لك حسن تعاونك بس انا يمكن ما قدرت اوصف المشكله بالضبط
المشكلة هي اني عاوز اطرح ساعة انصراف العاملين ولتكن الساعة 7 مساءً من الساعة الفعلية الي يجب ان ينصرف فيها العامل وهي الساعة 3:30 مساءً بحيث الناتج يكون عدد ساعات الوقت الإضافي الذي قضاه العامل بعد مواعيد العمل ومن خلاله سوف احسب الافرتيم
يعني يطرح ساعة الانصراف من الساعة 3:30 بشرط ان تكون ساعة الانصراف اكبر من 3:30 ليكون الناتج هو الوقت الإضافي للعامل
مشكور اخي علي تعاونك معي
Const leavingtime As Date = "03:30:00 PM"
DateDiff("n", leavingtime, [ActualLeavingTime]) / 60
حيث ActualLeavingTime هو وقت انصراف الموظف بعد الساعة 3:30
وكن متأكد ان هذا الوقت لن يتعدى 12:00 والا ستحصل على قيم خاطئة او سالبة لان VBA يعتمد فى حسابات الوقت على التاريخ كاملا بهذه الصورة yyyy/mm/dd hh:mm:ss AM/PM
هذا الموضوع مغلق.