منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار (/showthread.php?tid=39324)

استفسار - Nani - 18-08-21

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

RE: استفسار - ابو انس - 18-08-21

وعليكم السلام
كود :
   Dim b As Date = "10/10/2021"
       Dim d As Double = ((Now - b).Days)
       If d >= 30 Then
           MsgBox("aaa")
       End If

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

RE: استفسار - Nani - 22-08-21

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

RE: استفسار - asemshahen5 - 22-08-21

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


RE: استفسار - Nani - 23-08-21

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