منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري (/showthread.php?tid=28720)

زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - atefkhalf2004 - 22-02-19

هناك اداة تاريخ DateTimePicker3
عند تغيير  اليوم والشهر
اريد ان  تتغير DateTimePicker4
بالاتي  
تزيد  DateTimePicker4    ثلاثة اشهر   وتنفص 7 ايام
اتمني الرد
هذا الكود  اعطي خطا
DateTimePicker4.Value = DateTimePicker3.Value.Date + DateTimePicker3.Value.Month - DateTimePicker3.Value.Day
اين الصواب

RE: زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - ابراهيم ايبو - 22-02-19

السلام عليكم اخي الكريم
تفضل هذا الكود

كود :
Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged
       DateTimePicker4.Value = DateTimePicker3.Value.AddMonths(3).AddDays(-7)
   End Sub


RE: زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - atefkhalf2004 - 22-02-19

شكرا لك كثيرا

RE: زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - أبووسم - 24-02-19

(22-02-19, 01:18 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل هذا الكود

كود :
Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged
       DateTimePicker4.Value = DateTimePicker3.Value.AddMonths(3).AddDays(-7)
   End Sub

اخي إبراهيم.. اذا اردت ان تزيد ٥ سنوات فقط .. والايام و الاشهر لا تتغير.. ممكن الكود لو سمحت

RE: زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري - حريف برمجة - 24-02-19

كود :
DateTimePicker4.Value = DateTimePicker3.Value.AddYear(5)
أو :
كود :
DateTimePicker4.Value = DateTimePicker3.Value.AddMonths(60)