اشکال در محاسبه تاریخ

[mhmoein]

سلام دوستان محترم

می شه بگید اشکال این کد کجاست من تاریخ 28/02/1389 رو بهش می دم می گم یک روز بهش اضافه کن تاریخ 1/03/1389 رو تحویل می ده ؟

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a As DateTime = (DateTime.Parse("1389/02/28")).AddDays(1)

TextBox1.Text = a.ToString("d")

EndSub

[salehbagheri]

اولاً كه شما از كلاس DateTime داريد استفاده ميكنيد كه اين كلاس مخصوص تاريخ ميلادي هست.

در تاريخ ميلادي، روز در وسط قرار ميگيره كه عدد 2 هست.

با اضافه كردن يك روز، تاريخ شما بايد به اين صورت بشه: 28/03/1389 كه ماه 28 نداريم بنابراين مقدار 1 رو به عنوان ماه درنظر ميگيره كه ميشه : 1/3/1389 !

براي استفاده از تاريخ شمسي، ابتدا بايد تاريخ ميلادي مذكور رو به شمسي تبديل كرده و سپس استفاده كنيد.
در اين مورد نيز در سايت بسيار بحث شده. لطفاً جستجو كنيد.

[Peyman.Gh]

 Dim [date] As String = "1389/02/27"

        Dim year As Integer = Integer.Parse([date].Substring(0, 4))

        Dim month As Integer = Integer.Parse([date].Substring(5, 2))

        Dim day As Integer = Integer.Parse([date].Substring(8, 2))

        Dim p As New System.Globalization.PersianCalendar()

        Dim dt As DateTime = p.ToDateTime(year, month, day, 0, 0, 0, 0)

        dt = dt.AddDays(1)

        Dim pr As New System.Globalization.PersianCalendar()

        Label1.Text = ((pr.GetYear(dt).ToString() & "/") + pr.GetMonth(dt).ToString() & "/") + pr.GetDayOfMonth(dt).ToString()

موفق باشید.

[mhmoein]

واقعا ازت ممنونم دوست عزیز
امیدوارم تو این شب بزرگ به حق صاحبش همیشه به هر چی که می خوای برسی . ممنون

[mhmoein]

واقعا ببخشید اما می خواستم بدونم این کدی که شما لطف فرمودید تاریخ رو به صورت

مثلا : 1/1/1389 بر می گردونه می شه کاری کرد که تاریخ رو به صورت 01/01/1389 نشون بده .

ممنون از کمکت

[Peyman.Gh]

 Dim [date] As String = "1389/01/01"

        Dim year As Integer = Integer.Parse([date].Substring(0, 4))

        Dim month As Integer = Integer.Parse([date].Substring(5, 2))

        Dim day As Integer = Integer.Parse([date].Substring(8, 2))

        Dim p As New System.Globalization.PersianCalendar()

        Dim dt As DateTime = p.ToDateTime(year, month, day, 0, 0, 0, 0)

        dt = dt.AddDays(1)

        Dim pr As New System.Globalization.PersianCalendar()

        Dim y As String = pr.GetYear(dt).ToString()

        Dim m As String = pr.GetMonth(dt).ToString()

        Dim d As String = pr.GetDayOfMonth(dt).ToString()

        If (m.Length < 2) Then

            m = "0" + m

        End If

        If (d.Length < 2) Then

            d = "0" + d

        End If

        Label1.Text = y + "/" + m + "/" + d

موفق باشید.