eger yıl 4’e tam bolunuyor ise ve aynı zamanda 100’e tam bolunmuyor veya 400’e tam bolunuyor ise artık yıldır. 1900 yılı artık yıl degildir… uses System.SysUtils; function IsLeap(year:Integer): Boolean; begin IsLeap := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; …
Devamını Oku »