رساله تخبر ان التاريخ الفلانى بعد ثلاثة أيام

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

يمكنك أن تستخدم الدالة Datediff لمعرفة الفرق بين تاريخين ، إليك المثال التالي :

Dim TheDate As Date, Interval As Integer
TheDate = InputBox("Enter the date:")
Interval = DateDiff("d", Date, TheDate)
MsgBox "هذا التاريخ " & TheDate & " سيحل بعد " & Interval & " يوم/أيام ."

أما إذا أردت معرفة الفرق بالأشهر فعليك بتغيير المعطى الأول للدالة Datediff من d ( يرمز لـDay ) إلى m ( يرمز لـMonth )

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

اخى المبرمج احمد

بارك الله فيك وشكرا عل الرد

اخى المبرمج احمد ان اسف والله على الازعاج

بس ممكن تكمل جميلك معايا وتقول لى كيف اجعل البرنامج يبحث فى قاعدة البيانات عن التاريخ ويعرف الفرق بينه وبين التاريخ الحالى اذا كان الفرق 3 ايام مثلا يعطينى رساله

بس بدل ما اضع انا التاريخ فى inputbox

اجعله يبحث عنه فى قاعدة البيانات ويقارنه بالتاريخ الحالى ويعطينى رساله

انا اسف والله على الاطاله بس الموضوع مهم

لك جزيل الشكر