Returns the number of days in the Year represented by the given Date.Unit
QESBPCSDateTime
Declaration
Function DaysInYear(const DT: TDateTime): Integer;
Category
Date/Time Arithmetic Routines
Year Based Arithmetic Routines
Implementation
function DaysInYear (const DT: TDateTime): Integer;
begin
if DateIsLeapYear (DT) then
Result := 366
else
Result := 365;
End; |
Declaration
Function DaysInYear(const Year: Word): Integer;Implementation
function DaysInYear (const Year: Word): Integer;
begin
if IsLeapYear (Year) then
Result := 366
else
Result := 365;
End; |
Declaration
Function DaysInYear(const Year: Integer): Integer;Implementation
function DaysInYear (const Year: Integer): Integer;
begin
if IsLeapYear (Year) then
Result := 366
else
Result := 365;
End; |
HTML generated by Time2HELP
|
http://www.time2help.com