منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] حساب الفرق بين تاريخين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] حساب الفرق بين تاريخين (/showthread.php?tid=24932)

حساب الفرق بين تاريخين - محمد مسافر - 12-05-18

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

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

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

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

RE: حساب الفرق بين تاريخين - ملهمـ - 12-05-18

كود :
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


RE: حساب الفرق بين تاريخين - محمد مسافر - 12-05-18

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

RE: حساب الفرق بين تاريخين - sendbad100 - 12-05-18

اضف 1   من عندك 

9+1 = 10
وهكذا  

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

RE: حساب الفرق بين تاريخين - elgokr - 13-05-18

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

كل ما عليك هو اضافة هذا الكود نهاية كود احتساب عدد الايام حتى يجعل القيمة 10
كود :
TextBox1.Text += +1

يعنى كل ما عليك هو اضافة الكود بالاعلى اسفل هذا السطر
كود :
TextBox1.Text = diff


وبالتوفيق لك


RE: حساب الفرق بين تاريخين - محمد مسافر - 13-05-18

كود :
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
 
جربت الكود المقترح من جهتكم لكن ماقبل ممكن توضيح اكون شاكر لكم

RE: حساب الفرق بين تاريخين - حريف برمجة - 13-05-18

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

كود :
DateTimePicker2.Value.AddDays(1)