[Nani]

السلام عليكم..... 
ممكن مساعدة محتاجة كود تنبيه على تاريخ انتهاء الصلاحية بعد شهر من إدخال الصنف!؟
مثلا إذا ثم إدخال الصنف بتاريخ 10/10/2021 محتاجة كود يعطيني تنبيه بتاريخ09/11/2021
ولكم جزيل الشكر

[ابو انس]

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

كود :

   Dim b As Date = "10/10/2021"
       Dim d As Double = ((Now - b).Days)
       If d >= 30 Then
           MsgBox("aaa")
       End If

طبعا يتم التعديل على الكود حسب طبيعة البرنامج لديك

[Nani]

شكراً بارك الله فيك

---

طيب اذا كانت البيانات مخزنة ف قاعدة بيانات كيف رح يكون الكود!؟
مع العلم أنا أريد يظهر لي التنبيه مع عرض البيانات في الداتا قريد فيو!؟ ولك جزيل الشكر...

[asemshahen5]

قواعد بيانات Sql Server :

PHP كود :

SELECT * FROM SerialNumber WHERE GETDATE() >=  DateAdd(d, 90, ExpirdDate) 


قواعد البيانات Access :

PHP كود :

SELECT QtnTB.ID, QtnTB.SerialNum, QtnTB.Activate, QtnTB.StartDate, Date() AS ExpDate
FROM QtnTB
WHERE (((Date())>=DateAdd('d',10,[StartDate]))); 


[Nani]

شكرآ بارك الله فيك.