السلام عليكم ورحمة الله
لدي نظام اعمل عليه..اريد ان اعمل تنبيه للمستخدين حول تاريخ صلاحية المنتتجات بحيث يعطي تنبيه بان صلاحية المنتجات اوشكت على الانتهاء قبل 3 اشهر من تاريخ الانتهاء
انا استخدم صيغة التاريخ الاتية Now.Date.ToString("yyyy-MM-dd") واخزن التاريخ في حقل من نوع nvarchar(20)
وعليكم السلام ورحمة الله وبركاته
استخدم هذا الكود :
كود :
Dim bExpiryDate As String
bExpiryDate = Date.Today.AddDays(91).ToString("yyyy-MM-dd")
وقيمة المتغير (
bExpiryDate ) قارنها مع الحقل في قاعدة البيانات : فأي قيمة أقل منها أو تساويها تعرضها في جدول المشارف ع الانتهاء.
(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