هل من طريقة لإضافة مده بالايام على تاريخ بداية والناتج تاريخ انتهاء

موب واضح وضح اكثر

انت تقول:

تاريخ الاستلام :1/1/1420 يدخله المستخدم

مدة العقد :200 يوم يدخله المستخدم

تاريخ الانتهاء = مدة العقد +تاريخ التسليم اتوماتيكي

تاريخ الانتهاء = مدة العقد + تاريخ التسليم تاريخ التسليم طيب هذا ايش !!

هو نفسه تاريخ الاستلام اللي يدخله المستخدم ؟

في مثالك متى يكون تاريخ الانتهاء أريد كتابته على شكل تاريخ ؟

اذا تقصد بإضافة 200 يوم بعد تاريخ الاستلام كل ما عليك تسوي

DateTime date يساوي تاريخ الاستلام

date.day.add(200)

وخلاص

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

'التاريخ القديم قبل الإضافة
Dim day1 As Date = TextBox1.Text
TextBox1.Text = Format(day1, "yyyy/MM/dd")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'المدة المراد إضافتها للتاريخ القديم
Dim day2 As Integer = Val(TextBox2.Text)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'التاريخ الجديد بعد إضافة المدة له
Dim day3 As Date = DateAdd(DateInterval.Day, day2, day1)
TextBox3.Text = Format(day3, "yyyy/MM/dd")

شكرا لكم اخواني وعلى كل من ادلى بطريقة وعلى كل من اطلع

فالشكر لله اولا ثم لهذا الصرح العظيم الذي لولا الله ثم هو لما كنا ولما وصلنا الى هذا

وصلت للحل ولله الحمد بعد عدة محاولات وهو اسهل حل وصلت اليه

وهو:

نضيف اداة التاريخ ثم

نكتب الكود التالي على زر التنفيذ

        TextBox1.Text = Calendar1.SelectedDate.Date
        TextBox3.Text = Calendar1.SelectedDate.Date.AddDays(TextBox2.Text)
        Val(TextBox3.Text).ToString("yyyy/MM/dd")

حيث أن

TextBox1.Text = تاريخ التسليم

TextBox2.Text =المدة بالايام

TextBox3.Text =تاريخ الانتهاء