اذهب الي المحتوي
أوفيسنا

حساب عدد الايام بين تاريخين


الردود الموصى بها

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

اريد المساعدة في ملف اكسيس 

اريد حساب عدد الايام بين تاريخين في اكسيس مع خصم ايام الاجازات ( الجمعة والسبت مع خصم أيضاً ايام المناسبات الرسميه )

وشكراً مقدماً ♥️

 

 

 

رابط هذا التعليق
شارك

وعليكم السلام

هذه الدالة من موقع مايكروسوفت ..اذا كان تنسيق اللغة عندك بالعربي ..اما اذا بالانكليزي فقم بتغيير اسماء السبت والجمعة

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

Function Work_Days(BegDate As Variant, EndDate As Variant) As Integer
 
 Dim WholeWeeks As Variant
 Dim DateCnt As Variant
 Dim EndDays As Integer
 
 On Error GoTo Err_Work_Days
 
 BegDate = DateValue(BegDate)
 EndDate = DateValue(EndDate)
 WholeWeeks = DateDiff("w", BegDate, EndDate)
 DateCnt = DateAdd("ww", WholeWeeks, BegDate)
 EndDays = 0
 
 Do While DateCnt <= EndDate
 If Format(DateCnt, "ddd") <> "السبت" And _
 Format(DateCnt, "ddd") <> "الجمعة" Then
 EndDays = EndDays + 1
 End If
 DateCnt = DateAdd("d", 1, DateCnt)
 Loop
 
 Work_Days = WholeWeeks * 5 + EndDays
 
Exit Function
 
Err_Work_Days:
 
 ' If either BegDate or EndDate is Null, return a zero
 ' to indicate that no workdays passed between the two dates.
 
 If Err.Number = 94 Then
 Work_Days = 0
 Exit Function
 Else
' If some other error occurs, provide a message.
 MsgBox "Error " & Err.Number & ": " & Err.Description
 End If
 
End Function

 

  • Like 1
رابط هذا التعليق
شارك

4 ساعات مضت, Eng.Qassim said:

وعليكم السلام

هذه الدالة من موقع مايكروسوفت ..اذا كان تنسيق اللغة عندك بالعربي ..اما اذا بالانكليزي فقم بتغيير اسماء السبت والجمعة

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

اولا جزاكم الله خيرا لبحثكم وتقديم المساعدة

ولكن اسمح لى بعد اذن حضرتك

1- يعيب الدالة من موقع مايكرسوفت استخدام اسم اليوم سواء بالعربية او الانجليزية بسبب اختلاف الاجهزة على الرغم من امكانية تحاشى تلك المشكلة:wink2:
ولكن هذا شق الاجابه على السؤال وهو الفرق بالايام بين تاريخين مع عدم احتساب ايام الجمعة والسبت

2- وماذا عن الشق الاخر ؟ :eek2:

7 ساعات مضت, AHMED0155079 said:

مع خصم أيضاً ايام المناسبات الرسميه

 

رابط هذا التعليق
شارك

54 دقائق مضت, ابو جودي said:

هذا شق الاجابه على السؤال وهو الفرق بالايام بين تاريخين مع عدم احتساب ايام الجمعة والسبت

حمد الله على السلامة استاذ محمد ..مشتاقون جدا لمشاركاتك الجميلة

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

بالنسبة للعطل فاعمل جدول خاص ثم احسب عدد العطل لاطرحها من القيمة الاولى ..صحيح انه فيه نقطة ضعف ان ايام العيد ربما تصادف الجمعة والسبت لكني متجاوز هذه النقطة

منذ ساعه, ابو جودي said:

وماذا عن الشق الاخر ؟

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

لكن تظهر لي مشكلة ..انه من تاريخ 01/06/2022 لغاية 12/06/2022 تظهر لي 8 ايام مع العلم اني استخدمت الاستدعاء الاول

رابط هذا التعليق
شارك

37 دقائق مضت, Eng.Qassim said:

حمد الله على السلامة استاذ محمد ..مشتاقون جدا لمشاركاتك الجميلة

الله يسلمك ويحفظك يا باش مهندس قاسم:fff:

 

37 دقائق مضت, Eng.Qassim said:

لكن تظهر لي مشكلة ..انه من تاريخ 01/06/2022 لغاية 12/06/2022 تظهر لي 8 ايام مع العلم اني استخدمت الاستدعاء الاول

وما هى المشكلة

01/06/2022   >>--->   يوافق يوم الاربعاء           >>--->   1
02/06/2022   >>--->   يوافق يوم الخميس        >>--->   2
03/06/2022   >>--->   يوافق يوم الجمعة          >>--->   0
04/06/2022   >>--->   يوافق يوم السبت          >>--->   0
05/06/2022   >>--->   يوافق يوم الاحد             >>--->   3
06/06/2022   >>--->   يوافق يوم الاثنين           >>--->   4
07/06/2022   >>--->   يوافق يوم الثلاثاء           >>--->   5
08/06/2022   >>--->   يوافق يوم الاربعاء           >>--->   6
09/06/2022   >>--->   يوافق يوم الخميس        >>--->   7
11/06/2022   >>--->   يوافق يوم الجمعة          >>--->   0
11/06/2022   >>--->   يوافق يوم السبت          >>--->   0 

12/06/2022   >>--->   يوافق يوم الاحد             >>--->   8

رابط هذا التعليق
شارك

شوف يا باش مهندس @Eng.Qassim 

قمت فى هذا المرفق ببعض التعديلات الطفيفة والتى تظهر امامك كل شئ تفصيليا 

حمل المرفق وقم بفتح الاستعلام qryActualDays

ActualDaysCalcult Eng.Qassim.accdb

رابط هذا التعليق
شارك

3 ساعات مضت, ابو جودي said:

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

ActualDays([BeginDate],[EndDate])

خدعتني هذه الجملة .. ولم اكلف نفسي بتتبع الكود 🤣

  • Haha 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information