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

عمود 10 بية خلية الوقت والتاريخ بالشكل التالي بيجي من ملف تيكست حسب نظام معين بالتنسيق التالي

 من 20/02/2018 08:08:39 ص الي 20/03/2018 08:08:39 ص

1- اريد استخلاص اصغر قيمة تاريخ من الخلية وطرحها من اليوم  واضع الناتج بالعمود7
2-اريد استخلاص اكبر قيمة تاريخ من الخلية وطرحها من اليوم  واضع الناتج بالعمود8
3- كل شيء شغال تمام والكود بينفذ المطلوب بس المشكلة لو الخلية بالعمود 10 فارغة او لايوجد بيها تاريخ بيجيب فرق اي خلية قبلها

اريد التعديل بحيث لو الخلية بالعمود 10 فارغة او التاريخ غير موجود بية (كلمة : من - والي) تظهر 0  بالخلية بالعمود 8 او 7

كود :
       For i = 0 To Me.DataGridView1.Rows.Count - 1
           Dim t As String = DataGridView1.Rows(i).Cells(10).Value
           Dim firstpart As String = t.Substring(0, t.LastIndexOf("الي").ToString).Replace("من", "")
           Dim firstpart1 As String = t.Substring(t.IndexOf("الي").ToString).Replace("من", "").Replace("الي", "")
           Dim d As Date = firstpart
           Dim d2 As Date = firstpart1
           Dim d3 As Date = DateTime.Now
           If DataGridView1.Rows(i).Cells(10).Value Is Nothing Then Return
           DataGridView1.Rows(i).Cells(7).Value = DateDiff("d", d.ToShortDateString, d3.ToShortDateString)
           DataGridView1.Rows(i).Cells(8).Value = DateDiff("d", d3.ToShortDateString, d2.ToShortDateString)
       Next
الرد
تم الشكر بواسطة:
#2
PHP كود :
For 0 To Me.DataGridView1.Rows.Count 1

    Dim t 
As String DataGridView1.Rows(i).Cells(10).Value
    Dim fromDate 
As String Regex.Match(t"(?<=من\s).+?(?=\s)").Value
    Dim toDate 
As String Regex.Match(t"(?<=الي\s).+?(?=\s)").Value

    
If IsDate(fromDate) And IsDate(toDateThen
        Dim d1 
As Date CDate(fromDate)
        
DataGridView1.Rows(i).Cells(7).Value DateDiff("d"d1Today)
        
Dim d2 As Date CDate(toDate)
        
DataGridView1.Rows(i).Cells(8).Value DateDiff("d"Todayd2)
    Else
        
DataGridView1.Rows(i).Cells(7).Value 0
        DataGridView1
.Rows(i).Cells(8).Value 0
    End 
If

    If 
DataGridView1.Rows(i).Cells(10).Value Is Nothing Then
        DataGridView1
.Rows(i).Cells(7).Value 0
        DataGridView1
.Rows(i).Cells(8).Value 0
    End 
If

Next 
الرد
تم الشكر بواسطة:
#3
(26-02-18, 07:50 PM)طالب برمجة كتب :
PHP كود :
For 0 To Me.DataGridView1.Rows.Count 1

    Dim t 
As String DataGridView1.Rows(i).Cells(10).Value
    Dim fromDate 
As String Regex.Match(t"(?<=من\s).+?(?=\s)").Value
    Dim toDate 
As String Regex.Match(t"(?<=الي\s).+?(?=\s)").Value

    If IsDate
(fromDate) And IsDate(toDateThen
        Dim d1 
As Date CDate(fromDate)
 
       DataGridView1.Rows(i).Cells(7).Value DateDiff("d"d1Today)
 
       Dim d2 As Date CDate(toDate)
 
       DataGridView1.Rows(i).Cells(8).Value DateDiff("d"Todayd2)
 
   Else
        DataGridView1
.Rows(i).Cells(7).Value 0
        DataGridView1
.Rows(i).Cells(8).Value 0
    End 
If

 
   If DataGridView1.Rows(i).Cells(10).Value Is Nothing Then
        DataGridView1
.Rows(i).Cells(7).Value 0
        DataGridView1
.Rows(i).Cells(8).Value 0
    End 
If

Next 

نعم هذا هو المطلوب

اسال اللّة ان ينعم عليك بالصحة والعافية وجميع العائلة وان يريك خيرا في أسرتك
الرد
تم الشكر بواسطة: طالب برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب مساعدة بخصوص حفظ الداتا جريد فيو بها تشيكبوكس عاشق الرسول 10 232 18-08-19, 04:07 PM
آخر رد: ابراهيم ايبو
  سؤال فى التيكست والداتا جريد احمد خطاب 3 116 02-08-19, 10:32 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ملئ الداتا حسب التاريخ اسامه الهرماوي 2 128 29-07-19, 04:11 PM
آخر رد: Rabeea Qbaha
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 4 298 29-07-19, 11:54 AM
آخر رد: شوقي محي الدين
  [VB.NET] مشكلة في تنسيق التاريخ عند توزيع البرنامج على المستخدمين khairallah 2 160 26-07-19, 11:55 PM
آخر رد: khairallah
  [سؤال] خطاء طباعة التاريخ عكس في الوورد dell 4 212 26-07-19, 11:19 AM
آخر رد: dell
  [VB.NET] السلام عليكم اخواني واخواتي اريد مساعده في تصدير بيانات الداتا قريد فيو الي اكسل hosamloveme888@yahoo.com 2 105 24-07-19, 01:40 PM
آخر رد: asemshahen5
  [VB.NET] مشكلة في التاريخ السائل 0 77 18-07-19, 09:06 PM
آخر رد: السائل
  مشكلةفي تحديث البيانات او تحميل البيانات على الداتا جريد فيو alshandodi 1 138 14-07-19, 04:58 PM
آخر رد: سعود
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 165 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو

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


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