عدد ايام الجمعه مش مضبوطه داخل الشهر مع داله date diff

[اسلام سيد]

السلام عليكم

عندى اشكالية فى داله date diff فى الاكسيس

استخدمتها لمعرفة عدد الجمعات فى الشهر

وجربتها على شهر 3/2019

طلعت 4 والمفروض 5 ما سبيب ذالك ؟

 

 

ملفات مرفقه

عدد ايام الاجازة الاسبوعية فى الشهر.rar

[ابو جودي]

اتفضل 

Calendar.mdb

[اسلام سيد]

6 ساعات مضت, ابا جودى said:

اتفضل 

Calendar.mdb 540 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 13 downloads

فعلا وفت بالغرض لكن مش فاهمها خالص

[ابو جودي]

19 دقائق مضت, اسلام سيد said:

فعلا وفت بالغرض لكن مش فاهمها خالص

'الجمعة
Public Function TotalFriDays(pYear As Integer, pMonth As Integer, pDay As Integer)
Dim xindex As Integer
Dim endDate As Integer
endDate = Day(DateSerial(pYear, pMonth + 1, 0))
For xindex = 1 To endDate
    If Weekday(DateSerial(pYear, pMonth, xindex)) = pDay Then
        TotalFriDays = TotalFriDays + 1
    End If
Next
End Function

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

xx= TotalFriDays(Format(txtDate, "yyyy"), Format(txtDate, "m"), Format(txtDate, "dd"))

حيث ان txtDate = التاريخ على شكل 1/3/2019

 

من الاستعلام 
 

Fri: TotalFriDays(2019,3,1)

لاحظ شكل التاريخ وكيفية كتابته

السنة ثم  ,  الشهر  ثم  ,   اليوم

 

-----------------------------------------------

انا مش مبرمج انا مجرد هاوى

 انا بحثت على الانترنت عن مشكلتك الى تخص الجمع علشان اساعد ان امكننى ذلك والحمد لاقيت الكود 

 

 

[ابو جودي]

اتفضل مثالك بعد التعديل لاحتساب عدد كل ايام الاسبوع بين تاريخين

 

عدد ايام الاجازة الاسبوعية فى الشهر.accdb

[اسلام سيد]

43 دقائق مضت, ابا جودى said:

اتفضل مثالك بعد التعديل لاحتساب عدد كل ايام الاسبوع بين تاريخين

 

عدد ايام الاجازة الاسبوعية فى الشهر.accdb 444 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

ماشاء الله لا قوة الا بالله
الله ينور يا بشمهندس

كده وفيت وزياده وزياده وزياده

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

[ابو جودي]

الحمد لله رب العالمين الحمد لله الذى تتم بنعمته الصالحات 

سبحانك اللهم لا علم لنا الا ما علمتنا يارب لك الحمد حمدا كثيرا طيبا طاهر مباركا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك

[رمهان]

Function ramhan_days(fdate As Date, edate As Date, xday As Byte)
For i = fdate To edate
    x = x + (Weekday(i) = xday)
    Next
    ramhan_days = -x
End Function

مشاركة مع اخي وعزيزي اباجودي مع اجمل التبريكات بالترقية

بالتوفيق

عدد ايام الاجازة الاسبوعية فى الشهر.accdb

[اسلام سيد]

2 ساعات مضت, رمهان said:

Function ramhan_days(fdate As Date, edate As Date, xday As Byte)
For i = fdate To edate
    x = x + (Weekday(i) = xday)
    Next
    ramhan_days = -x
End Function

مشاركة مع اخي وعزيزي اباجودي مع اجمل التبريكات بالترقية

بالتوفيق

عدد ايام الاجازة الاسبوعية فى الشهر.accdb 460 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

تسلم يا هندسة

وحشانى مشاركاتك

جميل جدا

بصراحه احسنتما

ربنا ما يحرمنيش منكم ابدا

[ابو جودي]

4 ساعات مضت, رمهان said:

Function ramhan_days(fdate As Date, edate As Date, xday As Byte)
For i = fdate To edate
    x = x + (Weekday(i) = xday)
    Next
    ramhan_days = -x
End Function

مشاركة مع اخي وعزيزي اباجودي مع اجمل التبريكات بالترقية

بالتوفيق

عدد ايام الاجازة الاسبوعية فى الشهر.accdb 460 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

استاذى الجليل ومعلمى القدير وأخى الحبيب الاستاذ @رمهان 

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

اهلا باللمسات الرمهانية التى يتلهف كل طلاب العلم اليها