ali_md110
پنج شنبه 24 اردیبهشت 1388, 23:56 عصر
با سلام چرا متد AddDays در کلاش شمسی persian calendra اشتباه میکنه مثلا اگر امروز تاریخ 24/02/1388 باشه اگر 7روز اضافه کنبم تاریخ 02/03/1388 رو بر میگردونه در صورتیکه باید 31/02/88 13برگردونه
Dim Date_Sh As New Globalization.PersianCalendar
Dim sal As Integer = Date_Sh.GetYear(Date.Now)
Dim mah As String = Format(Date_Sh.GetMonth(Date.Now), "00")
Dim rooz As String = Format(Date_Sh.GetDayOfMonth(Date.Now), "00")
Dim mdate As String = sal & "/" & mah & "/" & rooz
MsgBox(Date_Sh.AddDays(mdate, 6))
Dim Date_Sh As New Globalization.PersianCalendar
Dim sal As Integer = Date_Sh.GetYear(Date.Now)
Dim mah As String = Format(Date_Sh.GetMonth(Date.Now), "00")
Dim rooz As String = Format(Date_Sh.GetDayOfMonth(Date.Now), "00")
Dim mdate As String = sal & "/" & mah & "/" & rooz
MsgBox(Date_Sh.AddDays(mdate, 6))