[وهج الصحراء]

[سعود]

هنا

[وهج الصحراء]

(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

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

منذ البارحة و أنا أحاول البحث عن طريقة مجدية للبحث بين تاريخين و إيجاد فارق الأيام .. للتاريخ الهجري لأنّ الصورة أعلاه للتّاريخ الهجري .. على كل حال أخي الكريم ..

الحمد لله الذي بنعمته تتم الصالحات .. الحمد لله أنّك وجدت الحل رغم أنّ الأخ و الأستاذ " سعود "أعطاك الحل السليم و بكيفيتيْن .. الميساج بوكس أو بالتاكست بوكس

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 


تحياتي

[محمد سالم المحترف]

كود :

MsgBox(DateAndTime.DateDiff(DateInterval.Day, Date.Parse("2018/10/5"), Date.Parse("2018/10/10")))