Функція DaysInAYear в Delphi видає кількість днів у році.
Math unit
function DegToRad (const Degrees : Extended) : Extended;
Функція DaysInAYear видає кількість днів у даному Році.
Рік може бути в діапазоні 0..9999.
Функція DaysInAYear: Дізнаємося скільки днів у високосному 2000 році
begin
// Скільки днів у високосному 2000 році?
ShowMessage('Днів у 2000 році = '+
IntToStr(DaysInAYear(2000)));
end;
Результат
Днів у 2000 році = 366
Подібні функції, процедури та команди
DaysBetween — видає цілу кількість днів між 2 датами.
DaysInAMonth — видає кількість днів у місяці.
DaySpan — видає дробове число днів між 2 датами.
MinsPerDay — видає число хвилин у дні.
MonthDays — видає кількість днів у місяці.
SecsPerDay — видає число секунд у дні.