الاخوة جميعاً
مرفق لكم مشروع حساب الفرق بين 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 تواريخ يكون محسوب من اليوم الذي حددته الى اليوم الاخر كماهو محدد في الصوره كمثال
اضف 1 من عندك
9+1 = 10
وهكذا
بس المثال هو الصح
تعال كده نقول ان 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)