منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

لقد قمت باضافة 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

(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

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

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



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

(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


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

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

و اياكم

موفق اخي