منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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")))

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

وهج الصحراء

سعود

وهج الصحراء

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

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