تحويل قيمة سنوية اوشهرية من ال textbox الى DateTimePicker

السلام عليكم

نستخدم السلوك AddYear لإضافة السنوات وهي قيمة رقمية

مثلاً السنة الحالية 2007 عندما نقوم بتنفيذ السطر التالي سيكون الناتج 2009

DateTimePicker1.Value = _
		DateTimePicker1.Value.AddYears(2)

إذا كانت الخانة النصية TextBox تحمل قيمة تاريخية سنوية مثلاً 2009 سنقوم بالتالي

أولاً سنضع هذه القيمة في متغير رقمي ..

ثانياً سنأخذ قيمة السنة الحالية من الـ DateTimePicker

ثم نقوم بإجراء عملية انقاص من قيمة الخانة النصية بما يقابلها في المتغير المبني على قيمة السنة الحالية و الناتج سنضيفه في

الـ DateTimePicker على سبيل المثال لنفترض ان الخانة النصية سيكون فيها 2009 و المتغير الذي اخذ القيمة من لاقط التاريخ هي

السنة الحالية 2007 سننقص هذا الرقم من 2009 سيكون الناتج 2 سنضيف هذا الناتج في خانة السنوات للاقط التاريخ ليصبح الناتجح 2009 ...

وهكذا بالنسبة للبقية كـ AddDays و AddMonths و كذلك في الساعات و الدقائق و الثواني..

شاهد المثال التالي::

 TextBox1.Text = "2009"

  Dim TextVal As Integer = CInt(Me.TextBox1.Text)
		Dim YearVal As Integer = Me.DateTimePicker1.Value.Year
		Dim YearValue As Integer = TextVal - YearVal
		DateTimePicker1.Value = _
		DateTimePicker1.Value.AddYears(YearValue )

بالتوفيق إن شاء الله.

جزاك الله عنا كل خير