Day of year

How many days since start of year

function DayOfYear(ADate: TDateTime): Integer;

var

  FirstDate: TDateTime;

  YYYY, MM, DD: Word;

begin

  DecodeDate(ADate, YYYY, MM, DD);

  FirstDate := EncodeDate(YYYY, 1, 1);

  Result := Trunc(ADate - FirstDate) + 1;

end;

 

Share this article!

Follow us!

Find more helpful articles: