سؤال بخصوص بداية ونهاية الاسبوع والشهر

[الشقاوي]

السلام عليكم ورحمة الله وبركاته
ارغب بايجاد تاريخ بداية السبوع الحالي ونهايته
وكذلك بداية الشهر الحالي ونهايته
مثال :
تاريخ اليوم 1440/05/17 الاربعاء 
الاسبوع الحالي يبد من يوم الاحد الموافق 1440/05/14 وينتهي يوم السبت الموافق 1440/05/20 
والشكر للجميع 

[الشقاوي]

42 مشاهدة  لا يوجد رد واحد 

اتمنى من يملك الاجابة لا يبخل علينا 

[Elsayed Bn Gemy]

اسف انا فى العمل الان اصل الى البيت باذن الله واكتب لك الكود

عمتا اكتبه لك وان وجدت مشاكل ارسل  بها هنا

Dim FirstDayInWeek, LastDayInWeek  As Variant
Dim dtmDate As Date
dtmDate = Me.strdate


FirstDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 1
Me.weekfir = FirstDayInWeek


LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) + 7
Me.weekend = LastDayInWeek

 

  مربع نص  بحقل التاريخ  Me.strdate

Me.weekfir مربع نص بداية الاسبوع

 مربع نص نهاية الاسبوع Me.weekend

 

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

 

[الشقاوي]

شكراً جزيلاً /اخي السيد 

هو المطلوب