تاريخ صلاحية المنتج - نسخة قابلة للطباعة

تاريخ صلاحية المنتج - نسخة قابلة للطباعة

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

تاريخ صلاحية المنتج - mohamedassim - 10-08-22

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

لدي نظام اعمل عليه..اريد ان اعمل تنبيه للمستخدين حول تاريخ صلاحية المنتتجات بحيث يعطي تنبيه بان صلاحية المنتجات اوشكت على الانتهاء قبل 3 اشهر من تاريخ الانتهاء

انا استخدم صيغة التاريخ الاتية Now.Date.ToString("yyyy-MM-dd") واخزن التاريخ في حقل من نوع nvarchar(20)

RE: تاريخ صلاحية المنتج - Taha Okla - 10-08-22

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

استخدم هذا الكود :

كود :

Dim bExpiryDate As String

        bExpiryDate = Date.Today.AddDays(91).ToString("yyyy-MM-dd")

وقيمة المتغير (bExpiryDate ) قارنها مع الحقل في قاعدة البيانات : فأي قيمة أقل منها أو تساويها تعرضها في جدول المشارف ع الانتهاء.

RE: تاريخ صلاحية المنتج - mohamedassim - 10-08-22

(10-08-22, 01:24 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

استخدم هذا الكود :

كود :

Dim bExpiryDate As String bExpiryDate = Date.Today.AddDays(91).ToString("yyyy-MM-dd")

وقيمة المتغير (bExpiryDate ) قارنها مع الحقل في قاعدة البيانات : فأي قيمة أقل منها أو تساويها تعرضها في جدول المشارف ع الانتهاء.كيف

كيف يعني اقارنها ممكن مثال الله يوفقك

السلام عليكم

استخدمت الكود التالي ومشا الامر الحمد لله

كود :

Dim dt As New DataTable

        Dim adapter As New SqlDataAdapter

        dt.Clear()

        adapter = New SqlDataAdapter("Select * from Expiralarm", sqlcon)

        adapter.Fill(dt)

        DGVExpire.AutoGenerateColumns = False

        DGVExpire.DataSource = dt

        For i As Integer = 0 To DGVExpire.Rows.Count - 1

            Dim d1 As DateTime = New DateTime

            d1 = DGVExpire(6, i).Value

            Dim d2 As DateTime = New DateTime

            d2 = Now.Date.ToString("yyyy-MM-dd")

            Dim M As Integer = Math.Abs((d1.Year - d2.Year))

            Dim months As Integer = ((M * 12) + Math.Abs((d1.Month - d2.Month)))

            DGVExpire(7, i).Value = months

        Next