[rochdi191]

السلام عليكم
اريد كود  يظهر نهاية صلاحية التاريخ  في جدول في خانة تاريخ الصلاحية
قمت بوضع كود الاتي قي زر
 Dim mnth As Integer = Now.Month ' يجلب رقم الشهر الحالي
        Dim yer As Integer = Now.Year ' يجلب السنة الحالية
        Dim Day As Integer = Now.Day    ' يجلب كم يوم في الشهر الحالي
        '' نجري مقارنة بين تاريخ اليوم وعدد ايام الشهر الحالي ان كانت تساويه تظهر رسالة
        If Now.ToString("dd") = Day Then
            dgv.CurrentRow.Cells(4).Style.BackColor = Color.Red

        End If
        ''============================
        ''هذه الاكواد ليس لها علاقة بالكود السابق فقط لاظهار القيم السابقة
        MsgBox(Now.ToString("dd")) ' تاريخ اليو في الشهر
        MsgBox(Day) ' تاريخ اليو في الشهر عدد ايام الشهر الحالي
        MsgBox(yer) ' السنة الحالية
        ''=============================
وعتد الضغط عليه يشير الى حقل فقط ليظهر الحقول الاخرى المنتهية الصلاحية