[مصمم هاوي]

لدى مشروع مكتبة كتب مصمم بالفيجوال 6 ويشتغل 100٪.
وأعمل على تحويله للدوت نت والأمور لحد الٱن تمام
ولكن استبق الأحداث قليلا وأطرخ هذا السؤال:

لدى فورم يتم فيه تسجيل بيانات إعارة كتاب:
ومن ضمن الأدوات:
1. تكست بوكس = أكتب فيه عدد أيام الإعارة
2. DateTimePicker1 = تاريخ بداية الإعارة
3. DateTimePicker2 = تاريخ نهاية الإعارة

المطلوب كيف أحسب الفرق بين تاريخين عند كتابة عدد أيام الإعارة في التكست بوكس بحيث يتم إظهار تاريخ نهاية الإعارة في DateTimePicker2

[عبد العزيز البسكري]

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

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

كود :

 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

[مصمم هاوي]

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

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

كود :

 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

أخي الحبيب وأستاذي الفاضل عبد العزيز والله إنك لسباق للخير فعال للمعروف جابر للخواطر
جزاك الله كل خير