17-10-12, 01:00 AM
كاتب الموضوع : AhmedEssawy
تتميز السنة الكبيسة بكون شهر فبراير 29 يوم بدلاً من 28 يوم ، وهي السنوات 1996 - 2000 - 2004 - 2006 .... بزيادة أو نقصان 4 سنوات .للتعرف عليها من خلال الكود حيث يمكنك ملئ قائمة الأيام للشهور حسب السنة على سبيل المثال :
كود :
Private Function IsLeapYear (iYear As Integer) As Boolean
If ((iYear Mod 4) = 0) Then IsLeapYear = ((iYear Mod 100) > 0) Or ((iYear Mod 400) = 0)
End Function