تقييم الموضوع :
  • 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 ك ب / التحميلات : 65)
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#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 كتب : جزاك الله خيرا اخي

و اياكم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  التاريخ الهجرى mmaalmesry 9 1,075 07-12-23, 01:32 PM
آخر رد: kebboud
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 338 16-11-23, 12:02 AM
آخر رد: بلال بلال
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 508 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  مطلوب كود جمع التاريخ Ahmed.vb 3 444 22-10-23, 08:32 AM
آخر رد: Ahmed5
  تحويل التاريخ في الداتاقريدفيو إلى أيام عربية صالح عبدالله 2 318 08-10-23, 12:17 AM
آخر رد: صالح عبدالله
  مشكلة عجيبة و غريبة ! عندما اقوم بطباعة فاتورة من Reportveiwer ينطبع التاريخ هجري moh61 2 327 09-09-23, 11:15 AM
آخر رد: alfaiz678

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


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