03-05-20, 02:50 AM
(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
هذا اكثر مما طلبت تسلم ايدك اخي الغالي

