ali_najari
سه شنبه 09 خرداد 1391, 10:47 صبح
دوست عزیز این تابع رو قبلا نوشتم واسه اینکار
شما میتونید به راحتی ازش استفاده کنید
''' <summary>
''' محاسبه روزهای سپری شده بین دو تاریخ شمسی
''' </summary>
''' <param name="Date1">تاریخ اول که تاریخ کوچکتر میباشد</param>
''' <param name="Date2">تاریخ دوم که تاریخ بزرگتر میباشد</param>
''' <param name="Seperator">جدا کننده روز و ماه و سال</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ShamsiDateDiff(ByVal Date1 As String, ByVal Date2 As String, Optional ByVal Seperator As String = "/") As Integer
Dim pc As New Globalization.PersianCalendar
Dim da1 = Date1.Split(Seperator)
Dim da2 = Date2.Split(Seperator)
Dim dt1 = pc.ToDateTime(da1(0), da1(1), da1(2), 0, 0, 0, 0)
Dim dt2 = pc.ToDateTime(da2(0), da2(1), da2(2), 0, 0, 0, 0)
Return DateDiff(DateInterval.Day, dt1, dt2)
End Function