[ابراهيم ايبو]

السلام عليكم اخي الكريم عاشق الرسول
اللهم صل على محمد وال محمد
اسعد الله صباحكم ووقاكم من كل شر
اخي الكريم اذا كنت تدخل التاريخ من اداتي DateTimePecke  اليك هذا الكود في الجدث التالي

كود :

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
       DateTimePicker2.Value = DateTimePicker1.Value.AddDays(27)
   End Sub

واذا كنت تدخل التاريخ من مربعي نص اليك هذا الكود ولكن انتبه ضروري جملة try_Catch

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Try
           Dim dd As DateTime = (CDate(TextBox1.Text)).AddDays(27)
           TextBox2.Text = dd
       Catch ex As Exception
       End Try
   End Sub

ضع بدل الرقم 27 عدد الايام التي تريد وان اردت بالاشهر اكتب AddMonths
وعند الحفظ ستأخذ القيم