(03-05-20, 01:42 AM)aljzazy كتب :

كود :

Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Value.ToString("dd/MM/yyy"))

Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Value.ToString("dd/MM/yyy"))

Dim ts As TimeSpan = dt2.Subtract(dt1)

If Convert.ToInt32(ts.Days) >= 0 Then

  For index = 0 To ts.Days

  Dim ds As String = dt1.AddDays(index)

Next

Else

  MessageBox.Show("Please Check It's Invalid Input")

End If

(03-05-20, 01:58 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله زبركاته
اخي بما ان التاريخ المكتوب في مربعات النص عبارة عن نصوص
لذا وجب تحويلها اولا الى تاريخ ومن ثم اجراء عملية الفرق بينهما ثم وضع التاتج في مربع نص مثلا
نعرف متغيرين من نوع Date ثم نسند لكل منهما قيمة التاريخ من مربعات النصوص محولة الى تاريخ
بهذا الشكل طبعا الفرق هنا بالايام 

كود :

Dim newdat, olddate As Date

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       newdat = CDate(TextBox1.Text)
       olddate = CDate(TextBox2.Text)
       Dim kk As Integer = DateDiff(DateInterval.Day, olddate, newdat)
       TextBox3.Text = "الفرق بين التاريخين :" & kk & " يوما "
   End Sub