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

[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

تم تعديل الأربعاء at 13:05 بواسطه AbuuAhmed
تبديل المرفق

[ahmed_dz]

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

[AbuuAhmed]

21 ساعات مضت, ahmed_dz said:

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

حياك الله أخي، جوابك غير واضح، إذا لا زلت تنتظر حلول أخرى فاطلبه بشكل مباشر ليستمر الأعضاء في المحاولات.

 

أما إذا وجدت الحل فحدده ليكن كذلك واضحا للجميع.

[ahmed_dz]

لم أجد الحل، ربما علي أن أطرحه بشكل أخر 

لكم مني كل التقدير و الإحترام 

[AbuuAhmed]

4 ساعات مضت, ahmed_dz said:

لم أجد الحل، ربما علي أن أطرحه بشكل أخر

أعتقد الحل رياضياتيا صحيح، فقط المشكلة أني لم احترز لوجود خلايا فاضية بناء على المثال في المرفق السابق.
لاحظ أجوبتك (مبهمة) غير صريحة!! يجب تحديد الخطأ بشكل واضح.

محاولة أخرى بدون تغيير في النتائج فقط تم تبديل نوع المتغيرات احترازا عند وجود خلايا فاضية في العطل/الإجازات.
 

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

Function getHolidays(Holiday1 As Long, Holiday2 As Long, _
                     Workday1 As Long, Workday2 As Long) As Integer
    Dim Date1 As Long, Date2 As Long
    
    'On Error Resume Next
    
    'Min date is 31/12/1899
    If Holiday1 <= 0 Or Holiday2 <= 0 Then Exit Function
    
    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

 

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

تم تعديل منذ 8 ساعات بواسطه AbuuAhmed