تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود نهاية صلاحية التاريخ
#1
السلام عليكم
اريد كود  يظهر نهاية صلاحية التاريخ  في جدول في خانة تاريخ الصلاحية
قمت بوضع كود الاتي قي زر
 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) ' السنة الحالية
        ''=============================
وعتد الضغط عليه يشير الى حقل فقط ليظهر الحقول الاخرى المنتهية الصلاحية

الرد
تم الشكر بواسطة:
#2
ارجوا المساعدة
الرد
تم الشكر بواسطة:
#3
السلام عليكم و رحمة الله و بركاته

ممكن تشرح بشكل أوضح؟
الرد
تم الشكر بواسطة:
#4
(06-06-20, 11:16 PM)WaeLx كتب : السلام عليكم و رحمة الله و بركاته

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

وعليكم السلام ورحمة الله وبركاته
اريد اخي
في خانة تاريخ الصلاحية
ان تتلون بلون عند تبقي 5 ايام او 3 ايام
او اضيف عمود يقوم بعملية الفرق بين التاريخين
الرد
تم الشكر بواسطة:
#5
لقد قمت باضافة 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
الرد
تم الشكر بواسطة:
#6
(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)

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


الملفات المرفقة
.rar   DateExample.rar (الحجم : 64.33 ك ب / التحميلات : 18)
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#7
(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


جزاك الله خيرا اخي
الرد
تم الشكر بواسطة:
#8
(08-06-20, 02:37 AM)rochdi191 كتب : جزاك الله خيرا اخي

و اياكم

موفق اخي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض التاريخ الهجري في الكريستال ريبورت جيولوجي مبتدئ 4 96 10-07-20, 07:27 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] جلب التاريخ منه 1 204 01-07-20, 01:58 PM
آخر رد: منه
  خطأ تنسيق التاريخ في الداتا جريد فيو في حاله انه فارغ alshandodi 2 157 30-06-20, 03:57 PM
آخر رد: alshandodi
Smile خطا في حفظ التاريخ فارغ (تم حل الموضوع) alshandodi 10 316 27-05-20, 07:53 PM
آخر رد: alshandodi
  [VB.NET] كيف يتم برمجة البرنامج عند نهاية الشهر باصدار صوت او رنين rochdi191 9 277 25-05-20, 08:37 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف يتم برمجة البرنامج عند نهاية الشهر باصدار صوت rochdi191 4 193 22-05-20, 11:34 PM
آخر رد: rochdi191
Wink [سؤال] طريقة عمل برنامج تعديل علي التاريخ والوقت في الويندوز Ali Edal 2022 4 279 12-05-20, 03:05 AM
آخر رد: Ali Edal 2022
  [سؤال] ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم rachidclo 1 163 03-05-20, 09:21 AM
آخر رد: b4getws
  الفرق بين التاريخ اليوم السابع 8 255 03-05-20, 08:08 AM
آخر رد: ابراهيم ايبو
  اظهار الاسماء باواخر التاريخ العيدروس 6 270 31-03-20, 09:55 PM
آخر رد: العيدروس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم