+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف احسب الفرق بين التاريخين (/showthread.php?tid=24538)
كيف احسب الفرق بين التاريخين - وهج الصحراء - 15-04-18
RE: كيف احسب الفرق بين التاريخين - سعود - 15-04-18
هنا
RE: كيف احسب الفرق بين التاريخين - وهج الصحراء - 15-04-18
(15-04-18, 03:08 AM)سعود كتب : هنا
أخيراً وجدت الحل
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
TextBox1.Text = Format(DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value))
End Sub
RE: كيف احسب الفرق بين التاريخين - عبد العزيز البسكري - 15-04-18
السّلام عليكم و رحمة الله و بركاته
منذ البارحة و أنا أحاول البحث عن طريقة مجدية للبحث بين تاريخين و إيجاد فارق الأيام .. للتاريخ الهجري لأنّ الصورة أعلاه للتّاريخ الهجري .. على كل حال أخي الكريم ..
الحمد لله الذي بنعمته تتم الصالحات .. الحمد لله أنّك وجدت الحل رغم أنّ الأخ و الأستاذ " سعود "أعطاك الحل السليم و بكيفيتيْن .. الميساج بوكس أو بالتاكست بوكس
PHP كود :
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
If True Then
Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Text)
Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Text)
Dim ts As TimeSpan = dt2.Subtract(dt1)
If Convert.ToInt32(ts.Days) >= 0 Then
TextBox1.Text = (Convert.ToInt32(ts.Days))
Else
MessageBox.Show("Invalid Input")
End If
End If
End Sub
تحياتي
RE: كيف احسب الفرق بين التاريخين - محمد سالم المحترف - 05-05-18
كود :
MsgBox(DateAndTime.DateDiff(DateInterval.Day, Date.Parse("2018/10/5"), Date.Parse("2018/10/10")))