06-06-20, 01:12 AM
السلام عليكم
اريد كود يظهر نهاية صلاحية التاريخ في جدول في خانة تاريخ الصلاحية
قمت بوضع كود الاتي قي زر
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) ' السنة الحالية
''=============================
وعتد الضغط عليه يشير الى حقل فقط ليظهر الحقول الاخرى المنتهية الصلاحية
اريد كود يظهر نهاية صلاحية التاريخ في جدول في خانة تاريخ الصلاحية
قمت بوضع كود الاتي قي زر
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) ' السنة الحالية
''=============================
وعتد الضغط عليه يشير الى حقل فقط ليظهر الحقول الاخرى المنتهية الصلاحية