[عبدالله الدوسري]

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

كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       TextBox2.Text = ComboBox1.Text

       ' يجب التحويل إلى تاريخ أولا للقيام بعملية إضافة عدد الأيام
       Dim MyDate As Date = TextBox1.Text
       ' تحويل عدد الأيام من نص إلى رقم
       Dim NumberOfDaysToAdd As Integer = TextBox2.Text

       ' MyDate الموجودة في التاريخ AddDays الآن نستخدم الوظيفة
       TextBox3.Text = MyDate.AddDays(NumberOfDaysToAdd)

   End Sub

الوظيفة AddDays تقوم بإظافة عدد الأيام ثم ترجع التاريخ الجديد بعد الإظافة



المشروع بعد التعديل :

  WindowsApplication1.rar (الحجم : 195.11 ك ب / التحميلات : 39)