View Full Version : تشخیص وجود سال کبیسه
mhmoein
شنبه 17 مهر 1389, 21:48 عصر
با سلام خدمت دوستان محترم
می خواستم بدونم که چطوری می شه بین دو تاریخ فهمید که سال کبیسه وجود داره ؟
مثلا از تاریخ 01/01/86 لغایت 17/07/89 یک سال کبیسه وجود دارد.
چطور می شه اینو به دست آورد راهی هست . فقط تعداد برام مهمه.
ricky22
شنبه 17 مهر 1389, 23:40 عصر
Private Sub LeapYearCheck()
Dim bLeapYear AsBoolean
bLeapYear = Date.IsLeapYear(Now.Year)
MessageBox.Show(bLeapYear)
bLeapYear = Date.IsLeapYear(2004)
MessageBox.Show(bLeapYear)
End Sub
kashir
شنبه 17 مهر 1389, 23:44 عصر
هر 33 سال 8 تا سال کبیسه داریم، اختلاف 7 تاشون چهار سال و یکی پنج ساله حالا واسه بدست آوردن سال کبیسه عدد سالتو تقسیم بر 33 کن اگه باقیمانده 1 یا 5 یا 9 یا 13 یا 17 یا 22 یا 26 یا 30 شد اون سال کبیسه است :چشمک:
hooooman
یک شنبه 18 مهر 1389, 00:43 صبح
سلام
والا من تا حالا برا تعداد کارب نکردم ولي براي تشخيص سال کبيسه از اين استفاده ميکنم ببين کارتو راه ميندازه:
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.