| DayOfYear Function | 
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 RoutinesImplementation
 
| function DayOfYear (const DT: TDateTime): Word;
begin
     Result := Trunc (DT) - Trunc (OptEncodeDateW (Date2Year (DT), 1, 1)) + 1;
End; | 
|  |