[محمد مسافر]

الاخوة جميعاً

مرفق لكم مشروع حساب الفرق بين 2 تواريخ .

المشروع جاهز فقط اريد تعديل بسيط بحيث يكون اليوم المحدد محسوب وايضاً اليوم الاخر المحدد محسوب .

مثلاً حساب الفرق بين تاريخ 1 مايوم الى تاريخ 10 مايو  =  يكون الناتج  10 ايام

[ملهمـ]

كود :

Dim Date1 As Date
       Dim Date2 As Date
       Dim diff As Integer

       Date1 = DateTimePicker1.Value
       Date2 = DateTimePicker2.Value
       diff = DateDiff(DateInterval.Day, Date1, Date2)
       TextBox1.Text = diff

[محمد مسافر]

[attachment=18000]
شكرا لكم فقط مااقصده عند حساب الفرق بين 2 تواريخ يكون محسوب من اليوم الذي حددته الى اليوم الاخر كماهو محدد في الصوره كمثال

[sendbad100]

اضف 1   من عندك 

9+1 = 10
وهكذا  

بس المثال هو الصح

[elgokr]

تعال كده نقول ان textbox خاص النتيجة باسم textbox1

كل ما عليك هو اضافة هذا الكود نهاية كود احتساب عدد الايام حتى يجعل القيمة 10

كود :

TextBox1.Text += +1

يعنى كل ما عليك هو اضافة الكود بالاعلى اسفل هذا السطر

كود :

TextBox1.Text = diff

وبالتوفيق لك

[محمد مسافر]

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.Text += +1

   End Sub

(13-05-18, 07:31 AM)elgokr كتب :

تعال كده نقول ان textbox خاص النتيجة باسم textbox1

كل ما عليك هو اضافة هذا الكود نهاية كود احتساب عدد الايام حتى يجعل القيمة 10

كود :

TextBox1.Text += +1

يعنى كل ما عليك هو اضافة الكود بالاعلى اسفل هذا السطر

كود :

TextBox1.Text = diff

وبالتوفيق لك

---

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.Text += +1

   End Sub

 
جربت الكود المقترح من جهتكم لكن ماقبل ممكن توضيح اكون شاكر لكم

[حريف برمجة]

اكتفي بزيادة يوم في اداة التاريخ كالتالي :

كود :

DateTimePicker2.Value.AddDays(1)