دالة لحساب عدد أيام العمل

[ahmed_dz]

السلام عليكم 

طلب مساعدة دالة إكسل لحساب عدد ايام العمل ( ملف مرفق ) ولكم مني جزيل الشكر

حساب أيام العمل خلال.xlsx

[Foksh]

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

الأصل أخي @ahmed_dz ، أن توضح طلبك بأكثر مما قمت به .. فمثلاً :-

هل تريد الاحتساب ليكون للفترة بين G2-G3 مع استثناء الفترة التي بين C4-F4 ( العطلتين ) . والأمر نفسه للفترة بين H2-H3 !!!!

أم ماذا ؟؟؟ يرجى توضيح مطلبك بحرص أكثر حتى تجد إجابة شافية وسريعة .

[ahmed_dz]

الأصل ان مدة العمل طيلة أيام السنة حتى عطلة نهاية الأسبوع تعتبر عمل بإستثناء أيام العطل 

وجزاك الله خيراً

[Foksh]

طيب وقبل طرح الحل ، هل النتيجة في الصورة التالية صحيحة ؟

لاحظ أنني قمت بتعديل تاريخ العطل الصيفية والشتوية من 2022 لتصبح 2025

[ahmed_dz]

18 ساعات مضت, Foksh said:

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

الأصل أخي @ahmed_dz ، أن توضح طلبك بأكثر مما قمت به .. فمثلاً :-

هل تريد الاحتساب ليكون للفترة بين G2-G3 مع استثناء الفترة التي بين C4-F4 ( العطلتين ) . والأمر نفسه للفترة بين H2-H3 !!!!

أم ماذا ؟؟؟ يرجى توضيح مطلبك بحرص أكثر حتى تجد إجابة شافية وسريعة .

 

16 ساعات مضت, Foksh said:

طيب وقبل طرح الحل ، هل النتيجة في الصورة التالية صحيحة ؟

لاحظ أنني قمت بتعديل تاريخ العطل الصيفية والشتوية من 2022 لتصبح 2025

 

يا اخي بارك الله فيك  واليك النموذج 

 

[AbuuAhmed]

الصراحة معظم دوال الإكسل المستجدة أجهلها، فعملت لك دالة بالـ vba
عملتها وأنا شبعان وأفكر في القيلولة، فربما تحتوي على أخطاء.

 

Function Between(inDate As Date, Date1 As Date, Date2 As Date) As Boolean
    Between = inDate >= Date1 And inDate <= Date2
End Function

Function getHolidays(Holiday1 As Date, Holiday2 As Date, Workday1 As Date, Workday2 As Date) As Integer
    Dim Date1 As Date, Date2 As Date
    
    If Between(Holiday1, Workday1, Workday2) Or _
       Between(Holiday2, Workday1, Workday2) Or _
       Between(Workday1, Holiday1, Holiday2) Or _
       Between(Workday2, Holiday1, Holiday2) Then
        
        Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1)
        Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2)
        getHolidays = Date2 - Date1 + 1
    End If
End Function

 

حساب أيام العمل خلال_03.xlsm

تم تعديل منذ 9 ساعات بواسطه AbuuAhmed
تبديل المرفق

[ahmed_dz]

مشكور على الجهد  والإهتمام  بالمناشير المطروحة من قبل الأعضاء