تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تنبية بحلول قرب تاريخ
#1
السلام عليكم ورحمة الله وبركاتة
لدي مجموعة بيانات في الداتا غريد فيو .... منها عمود تاريخ

لدي كود معرفة التواريخ التي ( اقل او اعلى ) من تاريخ اليوم

كود :
'اقل من تاريخ اليوم
        For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            If Me.DataGridView1(2, i).Value.ToString() <= Date.Now Then
                Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If
        Next

طلبي هو .... معرفة التاريخ التي سوف تحل من 1-30 يوم

على سبيل المثال :
تاريخ اليوم هو 1435/7/1

والبيانات هي
1435/7/3
1435/7/30
1435/8/5
1436/2/1

بحيث يحدد لي تواريخ :
1435/7/3
1435/7/30
لانها قريبة من تاريخ اليوم مابين 1 الى 30 يوم

اتمنى ان تكون الفكرة واضحة
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

عندك حلين :

الحل الأول : جملة استعلام بين تاريخين ،،، التاريخ الأول هو تاريخ اليوم الحالي للجهاز ،،، والتاريخ الثاني تاريخ اليوم الحالي للجهاز + 30 يوم .

سوف يقوم بعرض السجلات فقط المحددة بين التاريخين .

الحل الثاني : عرض جميع السجلات وتمييز السجلات في تلك الفترة بلون مختلف .

في كلا الحالتين ارفق مثالك ليتم التعديل عليه .
الرد }}}
تم الشكر بواسطة: مالكـ
#3
تفضل المثال

vb2008
اكسس 2003

حقل التاريخ ... جعلة نص


.rar   WindowsApplication5.rar (الحجم : 86.17 ك ب / التحميلات : 573)
الرد }}}
تم الشكر بواسطة:
#4
توضيح أكثر

بيانات البضائع
1 - توجد بضائع ... أنتهاء تاريخ الصلاحية ..... تم حلة عن طريق الكود بالاعلى .. وجعلت الصف باللون الاحمر
المطلوب
2- معرفة البضائع التي قاربت على أنتهاء صلاحيتها من يوم الى 30 يوم
الرد }}}
تم الشكر بواسطة:
#5
يعطيك العافية

لاكن ليس قريب لطلبي
الرد }}}
تم الشكر بواسطة:
#6
لم تنج الطريقة
الرد }}}
تم الشكر بواسطة:
#7
تعامل مع الميلادي وبعدها شوف الهجري لاني حين اجرب الاكواد مع الهجري ما ينجح لكن حين حولت تاريخ الجهاز الى ميلادي ضبط الوضع.
الرد }}}
تم الشكر بواسطة:
#8
هذا الأكواد بعد التعديل لنفس مثالك :

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'اقل من تاريخ اليوم
        For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            If Me.DataGridView1(1, i).Value.ToString() <= Date.Now.AddDays(-1) Then
                Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' المطلوب
        '    يحدد على التواريخ القريبة من التاريخ الان بحيث لاتتجاوز عن 30 يوم
        For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            If Me.DataGridView1(1, i).Value.ToString() < Date.Today.AddDays(-30) Or Me.DataGridView1(1, i).Value.ToString() > Date.Today.AddDays(30) Then
                Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If
        Next
    End Sub
الرد }}}
تم الشكر بواسطة: مالكـ
#9
حريف برمجة ..... يعطيك العافية

مثالك ... يظهر التواريخ التي اصغر من تاريخ اليوم بـ 30 يوم ... وأكبر من تاريخ اليوم ب30 يوم
معناها انة راح يظهر 60 يوم (30 قبل و 30 يوم بعد )
وهذا ليس المطلوب


على العموم وجدت مثال في أحدى مشاركات المنتدى القديم .. وقد عدلت علية فكانت النتيجة 100%

كود :
' التاريخ الحالي
        Dim A As Date = Date.Now
        ' زيادة 30 أيام على التاريخ
        Dim B As Date = Date.Now.Date.AddDays(30)

        For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            If Me.DataGridView1(1, i).Value.ToString() > A And Me.DataGridView1(1, i).Value.ToString() < B Then
                Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Green
            End If

        Next
الرد }}}
تم الشكر بواسطة:
#10
حريف برمجة مثالك قريب للطلب

لاكن عدلت علية ليصبح

كود :
For i As Integer = 0 To Me.DataGridView1.RowCount - 1
            If Me.DataGridView1(1, i).Value.ToString() > Date.Now And Me.DataGridView1(1, i).Value.ToString() < Date.Now.Date.AddDays(30) Then
                Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
            End If
        Next
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز mac9 4 709 11-04-23, 10:23 AM
آخر رد: mac9
  [Acces2007] نشر تاريخ الشهر في أعمدة الداتا جريد فيو ابو ايمن شعيب 0 330 16-03-23, 07:13 PM
آخر رد: ابو ايمن شعيب
Rainbow [كود] حساب تاريخ +عدد ايام لتكون النتيجه بعد الحساب =تاريخ محمد مسافر 1 472 14-09-22, 12:05 AM
آخر رد: Taha Okla
  جملة الاستعلام عن بداية حالة من تاريخ الى تاريخ aftfm 3 679 01-09-22, 06:17 AM
آخر رد: جيولوجي مبتدئ
  ناتج تاريخ بين تاريخ اليوم و عدد ايام nabil.1710 3 761 28-08-22, 11:48 PM
آخر رد: asmarsou
  [VB.NET] تلوين خلية في الكرستال ريبورت وفق شرط تاريخ muaamar 0 558 13-08-22, 10:18 PM
آخر رد: muaamar

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


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