حساب عدد الايام مع حذف ساعات الويكند مع العطلات الرسمية

[AbuTalal20]

مساء الخير 

موضعي هو حساب عدد الايام مع  حذف الويكند والعطلات  المشكله انه في الاكسل ماشي معي وكويس وممتاز ام في الاكسل حاولت وذهب الي بعض المتخصصين ولم اجد حل ؟

WM2023.rar

[Moosak]

حياك الله أخي أبو طلال 🙂 

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

Function CountWorkingDays(startDate As Date, endDate As Date) As Integer
' لحساب عدد الأيام بين تاريخين غير أيام السبت والأحد والإجازات الرسمية الموجودة في جدول الإجازات
    Dim totalDays As Integer
    Dim workingDays As Integer
    Dim currentDay As Date
    
    startDate = Format(startDate, "mm/dd/yyyy")
    endDate = Format(endDate, "mm/dd/yyyy")
    
    totalDays = DateDiff("d", startDate, endDate) + 1 ' Include both start and end dates

    Dim i
    Dim c
    
    For i = 0 To totalDays - 1
        currentDay = DateAdd("d", i, startDate)
        
        ' البحث في جدول أيام الإجازات إن كان هذا اليوم هو يوم إجازة أم لا
        c = DCount("[ID]", "[Holidays]", "CDbl(date) =" & CDbl(currentDay) & "")
        
        If Weekday(currentDay) <> vbSaturday And Weekday(currentDay) <> vbSunday And c = 0 Then
            workingDays = workingDays + 1
        End If
    Next i
    
    CountWorkingDays = workingDays
End Function

 

[AbuTalal20]

ياشيخ انت اسطوره ماتوقع ان احصل حل لها 

بس المشكه ما اعرف افعل الكود 

تاريخ الانهاء تاريخ الاٌغلاق 

حاولت ولم استطيع 🙏

[kkhalifa1960]

مشاركة مع استاذي @Moosak تفضل أخي مرفق جاهز  . 

DD143.Accdb

[AbuTalal20]

شكرا الله يحفظك ويرعاك 💙

بس انا عندي مليون عملية يعني مليون سجل كيف اسوي هذا الطريقه

[kkhalifa1960]

مرفقك أعلى من أفيس 2010 مايفتح معي حوله وأنا معك .

[AbuTalal20]

الله يسعدك شكرا شكرا 

 

عاجز عن الشكرا 

 

WM2023000.rar

[kkhalifa1960]

ايضا لم تفتح !!!!!!!!!

[AbuTalal20]

حاول مع هذا

WM2000.rar

[AbuuAhmed]

جرب الاستعلام في هذا المرفق.
مع العلم أني لم أفهم تركيبة جدول العطل لاعتمده في حساباتي.

WM2000_01.mdb

[AbuuAhmed]

جرب بعد فهمي لجدول العطل والتي هي عبارة عن يوم واحد لكل سجل.
 

WM2000_02.mdb

[AbuTalal20]

AbuuAhmed

الأول: شكر لك الله يسعدك ويكتب اجرك والله عاجز عن الشكر لك

 

وضعت جميع الاجازات الخاص بي  و تواريخ العمل بعد الاعياد۔

 

كما يوجد شرح تفصيلي 

CRM.rar

[AbuTalal20]

الأول: شكر لك الله يسعدك ويكتب اجرك والله عاجز عن الشكر لك

وضعت جميع الاجازات الخاص بي  وتواريخ العمل بعد الاعياد۔

 

المرفقات 

 

 

 

CRM.rar

[AbuuAhmed]

أخي أبو طلال، البيانات غير "نظيفة"، جدول في 2022 والآخر في 2023
كما أني لم أفهم جدول Siebel ، ماذا يعني هذا الجدول وما يعني عنوان هذا الحقل CRM؟
وأنصحك أن يكون تركيبة جدول العطلات عبارة عن حقلين بداية العطلة ونهاية العطلة إلا إذا كانت العطل كلها عبارة عن يوم واحد فتركيبة الجدول في حلي السابق أفضل.
هل ممكن أن ترفع ملف الإكسل ليسهل فهم المطلوب بدون أن تقحم أفكارك في الحل، فالحلول دعها علي.

[دروب مبرمج]

تفضل 

حساب عدد ايام الإجازات الفعلية بدون اجازات نهاية الإسبوع  + الإجازات الرسمية حسب جدول الإجازات

 

WM2000.mdb

تم تعديل مايو 27, 2023 بواسطه دروب مبرمج

[AbuuAhmed]

آخر مشاركة لي في هذا الموضوع
قمت بالتعديل على تركيبة جدول العطل وبياناته:

تم إضافة حقل نهاية العطلة (آخر يوم في العطلة) وتم تعديل بيانات عام 2023 إلى عام 2022 لتناسب جدول Siebel لزوم التجارب.
استخدمت الاستعلامات لتسريع النتائج ولن تعرف الفرق إلا مع عدد سجلات كبير.

النتائج في الاستعلام qryResults
موفق أخي.

WM2000_03.mdb

[AbuTalal20]

 

انت مبدع وخرافي وأفضل مبرمج ۔من الفرحه ماني مصدق شكرا ابو احمد من القلب 

بالنسبة Weeknd & Holidays 100%

ان شاء الله بأخذ الاستعلامات واسويها في العمل ۔

 

الف شكرا 

 

تم تعديل مايو 27, 2023 بواسطه AbuTalal20

[AbuuAhmed]

22 ساعات مضت, AbuTalal20 said:

بالنسبة Weeknd & Holidays 100%

انتبه أن العطل الأسبوعية حسبت ليومي السبت والأحد
تستطيع تبديلها في استعلام أيام العطل الأسبوعية، فأيام الأسبوع تبدأ برقم 1 ليوم الأحد وتنتهي برقم 7 ليوم السبت.

[AbuTalal20]

مساء الخير 

تم تعديل الويكند الي الجمعة والسبت 

اليوم في العمل جربتها علي مليون 300000 والبرامج يعمل كويس  بس فيه نقطه مع العلم الن الحسبه صحيح هل هذا عادي 

الايام اللي لايوجد به  Holidays مثل شهر  May يعطني عليها يوم احد 

شكرا لك مرة اخري والله يكتب اجرك 

 

تم تعديل مايو 29, 2023 بواسطه AbuTalal20

[AbuuAhmed]

منذ ساعه, AbuTalal20 said:

هل هذا عادي 

الايام اللي لايوجد به  Holidays مثل شهر  May يعطني عليها يوم احد 

لا مو عادي، الأمر بسيط، سأصلحه خلال دقائق قليلة.

[AbuuAhmed]

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

ملاحظة:
في جدول العطل الأسبوعية كنت قد أضفت "سابقا" مفتاح وفهرسين لمنع التكرار أرجو أن لا تغفل عنهما.

 

 

تم تعديل مايو 29, 2023 بواسطه AbuuAhmed
تبديل المرفق

[AbuTalal20]

ابشر

الاربعاء انشاالله بعلمك النتائج الله يسعدك ويجبر خاطرك ويسعدك يااااارب 

[AbuTalal20]

في استفسار رقم الطلب 1232123 تاريخ الانشاء 21\5\2023  وانتهاء الطلب في تاريخ 29\5\2023

WorkDays: 5 ايام وليس 6 ايام كيف نستطيع حل هذا الشكالية 

منا هو مرفق لكم 

[AbuuAhmed]

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

[AbuuAhmed]

إن شاء الله تكون الأخيرة 🙂

نصيحة:
إذا صادف وجود عطلة نهاية الأسبوع (Weekends) وسط عطلة رسمية Holiday، لا تحاول تقسيم العطلة لأن عطلة نهاية الأسبوع هي جزء من العطلة الرسمية، والبرنامج سوف يهتم بهذه الجزئية في الحسابات.

 

WM2000_06.mdb

تم تعديل مايو 29, 2023 بواسطه AbuuAhmed