Moduły » DateUtils

DaysInYear

DaysInYear
Moduł: DateUtils

function DaysInYear(const AValue: TDateTime): Word;

Funkcja zwraca ilość dni w roku na podstawie parametru AValue określającego datę.

Czasami korzystniejsze jest zastosowanie funkcji DaysInAYear (której parametrem jest rok) jak np. w poniższym przykładzie:

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, ' ilość dni to', DaysInYear(EncodeDate(i, 1, 1)));
 
  Readln;
end.


Zobacz też: