[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) ' السنة الحالية
        ''=============================
وعتد الضغط عليه يشير الى حقل فقط ليظهر الحقول الاخرى المنتهية الصلاحية

[rochdi191]

ارجوا المساعدة

[WaeLx]

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

ممكن تشرح بشكل أوضح؟

[rochdi191]

(06-06-20, 11:16 PM)WaeLx كتب : السلام عليكم و رحمة الله و بركاته

ممكن تشرح بشكل أوضح؟

وعليكم السلام ورحمة الله وبركاته
اريد اخي
في خانة تاريخ الصلاحية
ان تتلون بلون عند تبقي 5 ايام او 3 ايام
او اضيف عمود يقوم بعملية الفرق بين التاريخين

[rochdi191]

لقد قمت باضافة column اسمه renaimdays
وقمت بوضع الكود التالي ولم يشتغل معي

For Each Rw As DataGridViewRow In DataGridView1.Rows
Rw.Cells(2).Value = DateDiff(DateInterval.Day, Rw.Cells(1).Value, Rw.Cells(0).Value)
Next

[WaeLx]

(07-06-20, 02:09 AM)rochdi191 كتب : لقد قمت باضافة column اسمه  renaimdays
وقمت بوضع الكود التالي ولم يشتغل معي

For Each Rw As DataGridViewRow In DataGridView1.Rows
           Rw.Cells(2).Value = DateDiff(DateInterval.Day, Rw.Cells(1).Value, Rw.Cells(0).Value)
         Next

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

الكود الذي وضعته أنت يعمل بشكل جيد مع تعديل بسيط

كود :

Rw.Cells(2).Value = DateDiff(DateInterval.Day, Date.Now, Rw.Cells(0).Value)

مرفق مثال به طريقتين، احداهما عن طريق عمود حساب الفرق و الأخري مباشرة

[rochdi191]

(07-06-20, 07:39 AM)WaeLx كتب :

(07-06-20, 02:09 AM)rochdi191 كتب : لقد قمت باضافة column اسمه  renaimdays
وقمت بوضع الكود التالي ولم يشتغل معي

For Each Rw As DataGridViewRow In DataGridView1.Rows
           Rw.Cells(2).Value = DateDiff(DateInterval.Day, Rw.Cells(1).Value, Rw.Cells(0).Value)
         Next

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

الكود الذي وضعته أنت يعمل بشكل جيد مع تعديل بسيط

كود :

Rw.Cells(2).Value = DateDiff(DateInterval.Day, Date.Now, Rw.Cells(0).Value)

مرفق مثال به طريقتين، احداهما عن طريق عمود حساب الفرق و الأخري مباشرة

بارك الله فيك اخي قمت بوضع الكود السابق الذي وضعته انا وقمت بتعديل عليه والحمد لله شغال تمام


            For Each Rw As DataGridViewRow In dgv.Rows

                Rw.Cells("Remaindays").Value = DateDiff(DateInterval.Day, Rw.Cells("DatePaym").Value, Rw.Cells("DateExpr").Value)
            Next


جزاك الله خيرا اخي

[WaeLx]

(08-06-20, 02:37 AM)rochdi191 كتب : جزاك الله خيرا اخي

و اياكم

موفق اخي