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

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


ابوآمنة
إذهب إلى أفضل إجابة Solved by رمهان,

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

السلام عليكم

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

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

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

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

 

WeekdayCount.rar

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

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

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

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

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

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

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

بين فترتين 

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

 

جرب

saleh.accdb

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

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

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

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

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

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

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

مثل :

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

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

تم تعديل بواسطه saleh204
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • أفضل إجابة
10 ساعات مضت, saleh204 said:

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

:fff:

saleh2.accdb

جرب ياغالي

 

saleh2.accdb

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

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

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

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

:fff:

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

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