تشخیص وجود سال کبیسه

[mhmoein]

با سلام خدمت دوستان محترم
می خواستم بدونم که چطوری می شه بین دو تاریخ فهمید که سال کبیسه وجود داره ؟

مثلا از تاریخ 01/01/86 لغایت 17/07/89 یک سال کبیسه وجود دارد.

چطور می شه اینو به دست آورد راهی هست . فقط تعداد برام مهمه.

[ricky22]

Private Sub LeapYearCheck()
Dim bLeapYear AsBoolean

bLeapYear = Date.IsLeapYear(Now.Year)
MessageBox.Show(bLeapYear)

bLeapYear = Date.IsLeapYear(2004)
MessageBox.Show(bLeapYear)
End Sub

[kashir]

هر 33 سال 8 تا سال کبیسه داریم، اختلاف 7 تاشون چهار سال و یکی پنج ساله حالا واسه بدست آوردن سال کبیسه عدد سالتو تقسیم بر 33 کن اگه باقیمانده 1 یا 5 یا 9 یا 13 یا 17 یا 22 یا 26 یا 30 شد اون سال کبیسه است :چشمک:

[hooooman]

سلام
والا من تا حالا برا تعداد کارب نکردم ولي براي تشخيص سال کبيسه از اين استفاده ميکنم ببين کارتو راه ميندازه:



Public Function IsKabiseh(ByVal SunYear As Integer) As Boolean
Dim Myear As Integer = SunYear + 621
Dim Miladi As String
Miladi = Myear & "/02/29"
Dim final As DateTime
Try
final = System.Convert.ToDateTime(Miladi)
Return True
Catch ex As Exception
Return False
End Try
End Function