Anzahl Tage eines Jahres ermitteln

[jfheins]

Es könnte eine Funktion isLeapYear oder so in den DateUtils geben.

Ansonsten:

Delphi-Quellcode:

function IsLeapYear(Year: Word): Boolean; 
begin 
  Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); 
end;