توليد تواريخ بين فترتين ليومي الخميس والجمعة لمدة سنة

[ابوآمنة]

السلام عليكم

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

بالمرفق مثال من منتدى اكسل

يقوم بتوليد تواريخ بين فترتين بدون استثناء أيام معينة

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

 

WeekdayCount.rar

[أواب]

أرفق مثالا للتعديل عليه     بتنسيق 2003

[ابوآمنة]

للرفع

[أواب]

أرفق مثالا للتعديل عليه     بتنسيق 2003

[ابوآمنة]

المثال بالاكسل موجود 

وهي نفس الفكره

أريد تحويلها إلى أكسس فقط لا غير

[رمهان]

في ١٥‏/٢‏/٢٠١٩ at 20:12, saleh204 said:

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

حدد ؟ بين فترتين والا لمدة سنة ؟

[ابوآمنة]

شكرا لردك أستاذي الفاضل

بين فترتين 

حتى يكون هناك حرية في الوقت

 

[رمهان]

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

شكرا لردك أستاذي الفاضل

بين فترتين 

حتى يكون هناك حرية في الوقت

 

جرب

saleh.accdb

[ابوآمنة]

DoCmd.SetWarnings False
For i = t1 To t2
If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')"
Next i
DoCmd.SetWarnings True

ما شاء الله تبارك الله 

قمة في الإبداع والاحتراف 

شكراً هو المطلوب

لقد نفست كربة عن أخيك 

هل بالإمكان إضافة حقل لأشخاص يتكررون كل خمسة مرات :

مثل :

رمهان= الخميس  ، صالح = الجمعة ، مشعل = الخميس  ، فهد = الجمعة ، سالم = الخميس

ويعيد من جديد على نفس هذه الأشخاص حتى انتهاء الفترة المحددة

تم تعديل فبراير 20, 2019 بواسطه saleh204

[ابوآمنة]

كودك سيفتح لي آفاق كثيرة وسأتعلم منه بمشيئة الله تعالى.

[ابوآمنة]

أضفت في القاعدة المطلوب وباقي تتفضل علينا بلمساتك الرمهانية 

saleh2.accdb

[أواب]

الأخ الكريم رمهان

For i = t1 To t2
If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')"
Next i

نريد أن نفهم هذا الكود

أين دلالة الخميس  و الجمعة في الكود ؟

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

[Barna]

16 دقائق مضت, أواب said:

أين دلالة الخميس  و الجمعة في الكود ؟

الارقام 5 و 6 تدل على رقم يومي الخميس والجمعة

[أواب]

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

طيب ولو حبينا نحصي ايام الاثنين والخميس

والأيام البيض 13 و14 15 من كل شهر عربي (ايام الصيام )

ماذا نكتب ؟

[رمهان]

10 ساعات مضت, saleh204 said:

أضفت في القاعدة المطلوب وباقي تتفضل علينا بلمساتك الرمهانية 

saleh2.accdb

جرب ياغالي

 

saleh2.accdb

[ابوآمنة]

شكرا جزيلا من الأعماق 

سأجرب إذا عدت للمنزل بمشيئة الله تعالى 

[ابوآمنة]

Set rs = CurrentDb.OpenRecordset("tbl_names"): rs.MoveFirst
DoCmd.SetWarnings False
For i = t1 To t2
If Format(i, "w") = 5 Or Format(i, "w") = 6 Then
DoCmd.RunSQL "insert into tbl_days(xdate,xday,xname) values('" & i & "','" & Format(i, "dddd") & "'," & rs(0) & ")"
If DLast("id", "tbl_names") = rs(0) Then rs.MoveFirst Else rs.MoveNext
End If
Next i
DoCmd.SetWarnings True

ما شاء الله تبارك الله 

الأمور زي الحلاوة