منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب كود نهاية صلاحية التاريخ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب كود نهاية صلاحية التاريخ (/showthread.php?tid=35125)

طلب كود نهاية صلاحية التاريخ - rochdi191 - 06-06-20

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



RE: طلب كود نهاية صلاحية التاريخ - rochdi191 - 06-06-20

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

RE: طلب كود نهاية صلاحية التاريخ - WaeLx - 06-06-20

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

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

RE: طلب كود نهاية صلاحية التاريخ - rochdi191 - 06-06-20

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

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

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

RE: طلب كود نهاية صلاحية التاريخ - rochdi191 - 07-06-20

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

RE: طلب كود نهاية صلاحية التاريخ - WaeLx - 07-06-20

(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)

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

RE: طلب كود نهاية صلاحية التاريخ - rochdi191 - 08-06-20

(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


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

RE: طلب كود نهاية صلاحية التاريخ - WaeLx - 08-06-20

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

و اياكم

موفق اخي