تشخیص سال کبیسه شمسی

[SamadYousefi]

function IsLeapYear(Year: Word): Boolean;

begin

  Result:= SysUtils.IsLeapYear(Year +1);

end;