윤년계산 (C++, Delphi)

// 080419: 나눗셈 연산 제거

inline bool IsLeapYear(const int &Year)
{
    return ((Year % 100 != 0? Year % 4: Year % 400) == 0);
}

function IsLeapYear(Year: Integer): Boolean;
begin
  if Year mod 100 <> 0 then
    Result := ((Year % 4) = 0);
  else
    Result := ((Year % 400) = 0);
end;