Programowanie w języku Delphi

EndOfAYear

EndOfAYear
Moduł: DateUtils

function EndOfAYear(const AYear): TDateTime;

Funkcja zwraca wartość TDateTime która reprezentuje ostatnią milisekundę w roku. Innymi słowy funkcja zwraca ostatni moment danego roku, określonego w parametrze AYear:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  A : TDateTime;
begin
  A := EndOfAYear(2006);
  Writeln(DateTimeToStr(A));
 
  Readln;
end.


Taki program wyświetli na ekranie konsoli: 2006-12-31 23:59:59. Oczywiście możliwe jest wyświetlenie dokładniejszej wartości (co do milisekundy).

Zobacz też: