PDA

View Full Version : تاریخ روزهایی که بین دو تاریخ شمسی واقع شده اند



dottnett
یک شنبه 21 آذر 1389, 11:06 صبح
با سلام
آیا راهی برای بدست آوردن تاریخ هایی که بین دو تاریخ شمسی واقع شده اند وجود دارد ؟

Rezahak
یک شنبه 21 آذر 1389, 11:21 صبح
از متدهای موجود در Globalization.PersianCalendar استفاده کنید البته یک مقدار کد نویسی لازم دارید. مثلا اول باید تاریخ های شروع و پایان را به میلادی تبدیل کنید و ....

dottnett
یک شنبه 21 آذر 1389, 11:33 صبح
می شه بیشتر توضیح بدید.

Rezahak
یک شنبه 21 آذر 1389, 11:36 صبح
می شه بیشتر توضیح بدید.

شما کدتون رو بگذارید بنده براتون اصلاح کنم

ali_najari
یک شنبه 21 آذر 1389, 14:14 عصر
دوست عزيز توي وبلاگ من يك تابعي هست براي همين كار به اسم ShamsiDataDiff كه تعداد روزهاي بين 2 تاريخ رو برميگردونه

ali_najari
یک شنبه 21 آذر 1389, 14:30 عصر
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


نحوه استفاده :

Msgbox(ShamsiDateDiff(“1389/07/09” , ”1389/09/23” , ”/”))