منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم.....
ممكن مساعدة محتاجة كود تنبيه على تاريخ انتهاء الصلاحية بعد شهر من إدخال الصنف!؟
مثلا إذا ثم إدخال الصنف بتاريخ 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

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

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

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

قواعد بيانات 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

ابو انس

Nani

asemshahen5

Nani