كيفية إحتساب أيام عطل نهاية الأسبوع

[h5mas]

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

الأخوة مشرفي وأعضاء المنتدى أريد مساعدتكم في كيفية إحتساب أيام الدوم من دون أيام عطلة نهاية الأسبوع. أي يجمع لي الأيام من السبت إلى الأربعاء ويستثنى أيام الخميس والجمعة.

مثال:

موظف لديه دورة تدريبية من السبت إلى يوم الأثنين من الأسبوع الثاني، أي يصبح عدد أيام الدوام بدون العطلة الأسبوعة 5+3=8.

ولكم جزيل الشكر

[هادى محمد المامون سالم]

السلام عليكم

اخى الكريم :

مرفق ملف تستطيع أدخال التاريخ الذى تحدده فتكون النتيجه اظهار ايام اجازات الخميس و الجمعه 0

اتمنى ان يكون هو المطلوب

Holiday.rar

[h5mas]

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

نعم هذا ما أريده وما قصرت والله يعطيك العافية ويجزاك خيراً.

[aly_moh]

موضوع جميل بس بطلب الشرح

ازاى نعمل الموضوع دة على ايام اخرى غير الخميس و الجمعة

يعنى ممكن جمعة وسبت

انتظر الشرح

مشكور و جزاك الله خيرا

علي محمد

[هادى محمد المامون سالم]

موضوع جميل بس بطلب الشرح

ازاى نعمل الموضوع دة على ايام اخرى غير الخميس و الجمعة

يعنى ممكن جمعة وسبت

انتظر الشرح

مشكور  و جزاك الله خيرا

علي محمد

<{POST_SNAPBACK}>

فعلا يا ابو على الموضوع جميل و مفيد و اليك اكواد جميع ايام الاسبوع

اختار اليوم الذى تريده

يوم الجمعه

Function Holiday_1(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_1 = CountWkDay(Date1, Date2, vbFriday)

يوم السبت

Function Holiday_2(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_2 = CountWkDay(Date1, Date2, vbSaturday)
End Function

يوم الاحد

Function Holiday_3(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_3 = CountWkDay(Date1, Date2, vbSunday)
End Function

يوم الاثنين

Function Holiday_4(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_4 = CountWkDay(Date1, Date2, vbMonday)
End Function

يوم الثلاثاء

Function Holiday_5(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_5 = CountWkDay(Date1, Date2, vbTuesday)
End Function

يوم الاربعاء

Function Holiday_6(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_6 = CountWkDay(Date1, Date2, vbWednesday)
End Function

يوم الخميس

Function Holiday_7(ByVal Date1 As Long, _
                  ByVal Date2 As Long)
                  
 Holiday_7 = CountWkDay(Date1, Date2, vbThursday)
End Function

أعتقد مافيش احلى من كده و لاينقصنى غير دعوه صالحه

السلام عليكم

[ادم]

اخى الفاضل hs889

الله ينور يا أستاذ

ماشاء الله ، ربنا يزيدك علم

[هادى محمد المامون سالم]

مشكور اخى ادم

[omar elhosseini]

بسم الله الرحمن الرحيم

وبخطوة واحدة يبقى اسهل فى المرفق

Holiday2.rar

[halwim]

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

لي طلب بسيط :

هل يمكن استخدام التاريخ الهجري لاستخراج عدد أيام الخميس والجمعة بين تاريخين ولكن ... بالهجري؟؟

ولو بالإستعانة بالجهود المبذولة على الرابط التالي :

http://www.officena.net/ib/index.php?act=S...=14&t=12899

تحياتي

[أبو هادي]

السلام عليكم

أخي halwim ،

التاريخ الهجري أما أن يكون نوع تاريخ ( مقطع واحد ) وبذلك قيمته لا تختلف عن الميلادي وبالأحرى هو تاريخ ميلادي بشكل هجري وبالتالي تستطيع تطبيق معادلات العطل مباشرة دون اي تحويلات ، تذكر .... هي تواريخ ميلادية بتنسيق هجري .

أما لو كان التاريخ الهجري لديك عبارة عن ثلاث خلايا/مقاطع سنة وشهر ويوم فيمكنم استخدام دالتي :

HijriDateSerial أو HijriDate لتحويل التاريخ اولا ثم تقوم بحساب العطل ( مرف مثال ) .

أما لو كان التاريخ عبارة عن نص فأنا أعتذر عن البحث عن أي حل حيث لا أنصح به في الأكسل وخصوصا لوجود التسيق باستخدام B2 وحل مشكلة الإدخال المباشر للهجري .

تحياتي .

Holiday3.rar

[halwim]

أخي العزيز أبو هادي شكرا لمرورك الكريم ........ الله ينور عليك