تاريخ بداية ونهاية الفترة

[moamen salem]

اخواني الاحباب بعد اذنكم عندي تلات حقول عايز اكتب في الحقل الأول رقم الشهر يجيلي في الحقل التاني بداية ونهاية الفترة بمعنى لو كتبت في الحقل الأول 05 يجي في الحقل الأول 01_05 وفي الحقل التاني 31_05 وهكذا 

[ابوخليل]

انظر هنا سؤال مشابه واجابة

[moamen salem]

منذ ساعه, ابوخليل said:

انظر هنا سؤال مشابه واجابة

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

[AlwaZeeR]

تفضل اخي الكريم

 

alwazeer-Mnths.rar

[ابوخليل]

2 ساعات مضت, moamen salem said:

اما سؤالي بسجل رقم الشهر فقط وليس التاريخ كامل 

طلبك غريب نوعا

لان الشهر الكامل  اكمل واجمل

وهذا يعني ان اجابة اخونا الوزير نموذجية ولو كان العمل لي لاخذت بها

ما علينا

اعمل ثلاث حقول في النموذج  txt3 ، txt2 ، txt1

وفي حدث بعد التحديث للحقل  txt1   الصق هذا الكود

Dim kdate As Date
kdate = 15 & "/" & txt1 & "/" & Format(Date(), "yyyy")
txt2 = txt1 & "_" & "01"
txt3 = txt1 & "_" & Format(DateSerial(Year(kdate), Month(kdate) + 1, 0), "dd")

txt1  هو الحقل الذي ستكتب فيه رقم الشهر

مع الاخذ بالاعتبار ان النتيجة ستكون محصورة في السنة الحالية

db1.rar

[moamen salem]

اشكركم جميعا اخواني في الله أجربها غدا ان شاء الله وابشركم

[moamen salem]

جزاكم الله كل خير  الحمد لله تم كل عام وانتم بخير