Sha256: 25b60445afda5a47249df4b8df079d8b3c58aab98f8aea839996ac5b10319eba
Contents?: true
Size: 295 Bytes
Versions: 346
Compression:
Stored size: 295 Bytes
Contents
unit uLeap;
interface
type
TYear = class
public
class function IsLeap(aYear: integer): Boolean; static;
end;
implementation
class function TYear.IsLeap(aYear: integer): Boolean;
begin
result := ((aYear mod 400) = 0) or (((aYear mod 4) = 0) and ((aYear mod 100) <> 0));
end;
end.
Version data entries
346 entries across 346 versions & 1 rubygems