نقل قول نوشته شده توسط M.KH-SH مشاهده تاپیک
دوست عزیز::::

Dim d1, d2 As Date

        d1 = "1390/01/02"

        d2 = "1390/01/29"

        Label1.Text = DateDiff(DateInterval.Day, d1, d2)



شما به هر صورتی که دلت میخواد وارد کن
سلام
دوست عزیز قصد جسارت ندارم ولی ما بیکار نبودیم که رفتیم اون همه کد رو نوشتیم!!!
این کد رو تست کن متوجه می شی:

Dim d1, d2 As Date

        d1 = "1390/02/02"

        d2 = "1390/02/29"

        Label1.Text = DateDiff(DateInterval.Day, d1, d2)


توضیح:
تو کد شما اون تاریخ به شمسی تبدیل نمشه بلکه یک تاریخ میلادی در نظر گرفته می شه
و تعداد روز های ماه های میلادی با ماه های شمسی هم خونی ندره
تو این مثال بنده هم ماه دوم میلادی 28 روز هست واسه همین خطا می ده (آیا ما ماهی با 28 روز داریم؟؟!! حتی ماه دوم ما 31 روز هست یعنی سه روز تفاوت!!!)