Funktion den Tage eines Jahres zu bestimmen

[Gollum]

Hallo,

vielleicht hilft Dir das:

Code:

function Anzahltage(const aDatum:TDateTime):Integer;
var y, m, d:Word;
begin
  DecodeDate(aDatum, y, m, d);
  Result:=Round(aDatum-EncodeDate(y, 1, 1))+1;
end; // Anzahltage

  ...
  Label1.Caption:=IntToStr(Anzahltage(Date));
  ...