منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

عندي التكسات التالية بكتب فيها تاريخ : 
 text_day= بكتب فيه الايام من 1 الى 31 
 text_month= بكتب فيه الشهر من 1 الى 12
 text_yaer= بكتب فيه السنة 2024 مثلا 
 text_start date = بيدمج لي قيم التكستات الثلاث السابقة ويظهر لي نص على شكل تاريخ مثلا ( 1-1-2024 )
text_duration = المدة المطلوب اضافتها بالسنوات بكتب بداخله عدد السنوات مثلا ( 3 ) 

عندي زر احتاج عند الضغط عليه يروح للتكس رقم 6 الي اسمه ( text_end_date ) يكتب لي بداخله تاريخ = text_start date.text + text_duration.text

يظهر لي في النهاية التاريخ ذا ( 31-12-2026 ) ..

وبارك الله فيكم جميعا .

text_start_date.Text = New Date(Val(text_yaer.Text), Val(text_month.Text), Val(text_day.Text)).ToString("d-M-yyy")
text_end_date.Text = CDate(text_start_date.Text).AddYears(Val(text_duration.Text)).ToString("d-M-yyy")
text_end_date.Text = CDate(text_end_date.Text).AddDays(-1).ToString("d-M-yyy")

sabree

الف شكر لك .