DayOfYear Function
Returns the Day Number in the Year represented by the given Date.

Unit
QESBPCSDateTime

Declaration
Function DayOfYear(const DT: TDateTime): Word;

Description
For a faster Integer Routine see OptDayOfYear.

Parameters
DT Date/Time to process.

Category
Date/Time Arithmetic Routines
Year Based Arithmetic Routines

Implementation

function DayOfYear (const DT: TDateTime): Word;
begin
     Result := Trunc (DT) - Trunc (OptEncodeDateW (Date2Year (DT), 1, 1)) + 1;
End;


HTML generated by Time2HELP
http://www.time2help.com