اضافه كردن مقدار مشخصي به تاريخ شمسي

[omidquest]

دوستاي گلم سلام

من توي فرمم يه تاريخ دارم به صورت 1390/01/01 كه در قالب String در يك تكس باكس نشون داده ميشه

حالا اگر بخوام مقدار مشخصي رو به اين تاريخ اضافه كنم چه كاري بايد انجام بدم

مثلا يك سال به اين تاريخ اضافه بشه يا 3 ماه يا 4 روز

[Hybrid]

سلام دوست عزیز امیدوارم حالت خوب باشه. خود ویژوال استودیو متدهایی رو برای اضافه کردن سال ، ثانیه ، ماه و... داره.

[Hybrid]

مثال خوب ! :

1) ابتدا فضای نام های زیر رو به برنامه import کنید :


Imports System.Globalization
Imports System.Text

2) 2 عدد لیبل و یک عدد باتن رو به فرم اضافه کنید.

3) کد زیر رو در رویداد Click دکمه بنویسید و نتیجه رو مشاهده کنید.


Dim sb As New StringBuilder
Dim pc As New PersianCalendar

sb.Append(pc.GetYear(Now))
Label1.Text = sb.ToString()
sb.Remove(0, sb.Length)

Dim newDate As String = pc.AddYears(DateTime.Now, 2).ToString()
sb.Append(pc.GetYear(newDate))

Label2.Text = sb.ToString()

4 ) برنامه رو دیباگ کرده و نتیجه رو مشاهده کن.

موفق باشید./