[اليوم السابع]

(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

هذا اكثر مما طلبت تسلم ايدك اخي الغالي