[mohamedassim]

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

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

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

[Taha Okla]

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

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

كود :

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

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

[mohamedassim]

(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