(15-01-25, 11:17 AM)عبد العزيز البسكري كتب :

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

مثلا كفكرة عامة .. بدون تجربة .. يمكنك تعديله إلى الأحسن

كود :

 Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
       If TextBox1.Text = "" Or Val(TextBox1.Text) = 0 Then
           Exit Sub
       Else
           DateTimePicker2.Value = DateTimePicker1.Value.AddDays(Val(TextBox1.Text))
       End If
   End Sub
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       If TextBox1.Text = "" Or Val(TextBox1.Text) = 0 Then
           Exit Sub
       Else
           DateTimePicker2.Value = DateTimePicker1.Value.AddDays(Val(TextBox1.Text))
       End If
   End Sub