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

[الورقات]

السلام عليكم

هذا سؤال موجود في قسم " قسم مشروع الأكسس adp" من قبل الاخ " عرنس"

وهذا نص السؤال

" السلام عليكم اخواني واخواتي الاعزاء

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

طلبي هو كيف يمكن ان اعمل على حقل تاريخ الاصدارمثلا 01/01/2005 البرنامج يعطيني بطريقة تلقائية تاريخ الانتهاء هوه 01/01/2007

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

ويعطيكم الف عافية وخير "

وكان الجواب عليه باستخدام الدالة التالية :

Me.EndingDate=dateadd("yyyy", Me.Modah, Me.SourceDate)

ولكن هذه الدالة تعطي تاريخ النهاية في نفس يوم تاريخ الاصدار

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

مثال

مثال تاريخ الاصدار 01/01/2005 يكون تاريخ الانتهاء هوه 31/12/2006 يعني في آخر يوم من عام 2006

هل بالامكان عمل هذه المعادلة

انا نقلت السؤال الى هذا القسم لكثرة الداخلين لهذا القسم

وشكرا

[التقني]

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

ضعي بعد الكود المذكور الكود التالي :

Me.EndingDate = Me.EndingDate - 1

ليكون بالطريقة التالية :

Me.EndingDate=dateadd("yyyy", Me.Modah, Me.SourceDate)
Me.EndingDate = Me.EndingDate - 1

[الورقات]

السلام عليكم

اخي التقني

كلامك 100 % صحيح اذا كان التاريخ مكتوب بالميلادي

انا نسيت اقولك ان التاريخ اللي اكتبه بالهجري

فهل فيه طريقة للحل

[التقني]

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

السطر الذي أوضحته بالكود يقوم بإنقاص يوم واحد من ناتج حقل تاريخ الانتهاء

أعتقد أن الأمر ينطبق على التقويم الهجري لديك ؟

[الورقات]

السلام عليكم

شكرا لصبرك معي

صحيح كلامك صحيح في انقاص يوم اذا كان التاريخ في وسط الشهر

بس انا جربت التاريخ الهجري الموافق 01/09/1425

فهو يعطيني 31/8/1427

وانت تعرف مافيه شي اسمه 31 بالتاريخ الهجري

وهذا شي جربته

فماذا ترى

تم تعديل يوليو 27, 2006 بواسطه الورقات

[التقني]

وعليكم السلام

برجاء الاطلاع على المواضيع التالية :

http://www.officena.net/ib/index.php?showtopic=10740&hl

http://www.officena.net/ib/index.php?showtopic=368&hl

http://www.officena.net/ib/index.php?showtopic=5295&hl

http://www.officena.net/ib/index.php?showtopic=4060&hl

[الورقات]

السلام عليكم

الاخ التقني

اشكرك على اهتمامك وقد راجعت جميع الروابط

لكن لم تنحل المشكلة

فهل من حل آخر

[الورقات]

السلام عليكم

اخوي التقني

وش بلاك

عسى ما ازعجناك

والا مالقيت لها حل

تكفى لا تنساني

[الورقات]

السلام عليكم

الاخ التقني

عسى المانع خير

مارديت علي :') :') :') :')