Delphi -Tagesnummer eines beliebigen Datums ermitteln

[xZise]

Abgesehen davon, sollte man das doch als Integer ausgeben? Es ist ja die "Tagesnummer" eines Datums.

Delphi-Quellcode:

function DateNumber(y, m, d : Integer) : Integer;
begin
  Result := Trunc(EncodeDate(y, m, d);
end;

MfG
Fabian