اول يوم واخر يوم بالاسبوع الحالي والاسبوع السابق : بحسب تقويم أم القرى

[kaser906]

السلام عليكم ورحمة الله وبركاتة

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

المطلوب :

بعد ادخال حقل التاريخ لأم  القرى

الحصول على تاريخ بداية  اول يوم في الاسبوع الحالي للتاريخ المدخل

الحصول على تاريخ يوم نهاية الاسبوع الحالي للتاريخ المدخل 

الحصول على تاريخ بداية  اول يوم في الاسبوع الماضي للتاريخ المدخل

الحصول على تاريخ يوم نهاية الاسبوع الماضي للتاريخ المدخل

::::

 

[ابو ياسين المشولي]

30 دقائق مضت, kaser906 said:

السلام عليكم ورحمة الله وبركاتة

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

المطلوب :

بعد ادخال حقل التاريخ لأم  القرى

الحصول على تاريخ بداية  اول يوم في الاسبوع الحالي للتاريخ المدخل

الحصول على تاريخ يوم نهاية الاسبوع الحالي للتاريخ المدخل 

الحصول على تاريخ بداية  اول يوم في الاسبوع الماضي للتاريخ المدخل

الحصول على تاريخ يوم نهاية الاسبوع الماضي للتاريخ المدخل

::::

 

اخي kaser906

لايوجد مرفق

راجع هذا لعله يفي بالغرض

بدايه الاسبوع

[kaser906]

4 دقائق مضت, ابو ياسين المشولي said:

kaser906

لايوجد مرفق

راجع هذا لعله يفي بالغرض

 

🙄😩

اسف سقط سهوا

يعططيك العافية أخي ابو ياسين

هذا هو الملف

UMfirestWeekandlastweek.rar

[kaser906]

رفع

[ابو ياسين المشولي]

3 ساعات مضت, kaser906 said:

رفع

اتمنى يكون المطلوب

Dim FirstDayInWeek, LastDayInWeek  As Variant
Dim dtmDate As Date
dtmDate = Date


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


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


LastDayInWeek = dtmDate - Weekday(dtmDate, vbUseSystem) - 14
Me.txtV_DATE2 = LastDayInWeek

 Me.firstdaymonth = DateSerial(Year(firstdaymonth), DatePart("m", Enddaymonth), 1)

 

UMfirestWeekandlastweek.rar

[kaser906]

17 ساعات مضت, ابو ياسين المشولي said:

اتمنى يكون المطلوب

الله يعطيك العافية اخي ابو ياسين

ليت الأمر كان كما تصورته لهان منذ البداية 

الذي اقصده استخراج التواريخ المذكورة بناء على التاريخ الممرر لها من حقل EndDate وهو تاريخ ممرر حسب تقويم أم القرى

مثلا انقر نقرا مزدوج في حقل EndDate وانظر الى التقويم لشهر شعبان ستجد انه 30 يوم اما التاريخ الهجري 29 يوم وهنا تكمن المشكلة

في اظهار نتيجة بداية الاسبوع بين ام القرى والهجري

علما ان المرفق الذي وضعته يعطي نتائج خاطئة  سواء للتاريخ الميلادي او الهجري لاحظت ان بدايات الاسابيع ونهايتها خطأ

بالمرفق التالي قمت بعدة محاولات وتمكنت من خلالها من اظهار نتائج صحيحة  بالتاريخ الميلادي او الهجري وام القرى بتمرير دالة تاريخ أم القرى بعد

ان قمت بمراجعة البرنامج الاساس للاستاذ ابو هادي وقراءة الوحدات النمطية والدالات

جرب ادخل اي تاريخ بين شهر رجب 1440 و شهرشعبان وشهر رمضان 1440 وستجد الفروقات واضحة

اما الشهور الاخرى والتي يكون فيها عدد الايام متساوي تكون متطابقة

وهذا المرفق اضعه لعل من احد يستفيد منه

شكر لك  مد يد العون

 

finel‏‏UMfirestWeekandlastweek.rar

[ابو ياسين المشولي]

اخي kaser906

يعلم الله اني مشغول جدا وحاولت معك كي اوصلك لبدايه الطريق وانا عارف انك بتكمل

لذلك اعذرني على تاخر الرد لاني بالفعل والله هذه الايام مشغول جدا

[kaser906]

4 ساعات مضت, ابو ياسين المشولي said:

لذلك اعذرني على تاخر الرد لاني بالفعل والله هذه الايام مشغول جدا

يعطيك الصحه والعافية