DaysInAYear Delphi

DaysInAYear

Модуль: DateUtils
function DaysInAYear(const AValue: TDateTime): Word;

Функция, основанная на дате, указанной в параметре AValue, возвращает количество дней в году. Вот пример простого применения этой функции:

program Foo;

{$APPTYPE CONSOLE}

uses

SysUtils, DateUtils;

var

i : Integer;

Year : Word;

begin

Year := YearOf(Now);

for I := 1000 to Year do

Writeln('W roku ', I, ' było ', DaysInAYear(i), ' dni');

Readln;

end.

Авторизация

Генерация пароля