مشكلة في كود للجمع بشرط

[Ahmed.IQ]

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

عندي كود للجمع الكود عبارة لجمع عدد الساعات بشرط ان تتجاوز ال 4 ساعات تمام

مثلاً موظف اخذ 8 ساعات اجازة متراكمه خلال هذا الشهر سيتم خصم اربعة من 8 ساعات وسيتم اضافة 4 ساعات لتدويرها لحين وصل الساعات المتجاوزة 8 ساعات سيتم احتساب يوم اجازة.

لو فرضنا ان الموظف خلال هذا الشهر حصل على اجازات وقتية 16 ساعة سيتم خصم 4 ساعت لانها من حقل الموظف وسيتم احتساب 12 ساعة بعدها سيتم خصم 8 ساعات من الاجازات الليومية للموظف وسيتبقى 4 ساعات يتم تدويرها للموظف . 

لو فرضنا ان الموظف اخذ 8 ساعات اخرى خلال هذا الشهر من المفترض ان يكون 12 ساعه في ذمة الموظف بسبب ان الاربع ساعات المستحقة تم الاستفادة منها من قبل الموظف خلال هذا الشهر

احتاج الى فكرة كيف اقوم بعمل الحساب 12 ساعة التي  يجب ان تضاف الى الموضف لاني لو قمت بجمع من جديد سوف يقوم بخصم 4 ساعات ويصبح المجموع 8 ساعات بسببب الشرط الموضوع.

 

If Nz(DSum("[TO]", "vacation", "ECode= code1 and Yrm= x"), #12:00:00 AM#) + Me.to >= #4:00:00 AM# Then
Me.Total = (Nz(DSum("[TO]", "vacation", " ECode= code1 and Yrm= x and Delete= false"), #12:00:00 AM#) + Me.to - #4:00:00 AM#)
End if