Data i czas » Obliczenia

EndOfADay

  • 2010-10-31 18:27
  • 0 komentarzy
  • 292 odsłony
  • Oceń ten tekst jako pierwszy
EndOfADay
Moduł: DateUtils

function EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;
function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;

Funkcja zwraca ostatnie możliwy moment dnia (czas) na podstawie parametrów przekazanych w funkcji. AYear określa rok; AMonth - miesiąc, natomiast ADay - dzień. Możliwe jest użycie przeciążonej funkcji, w której należy podać parametr ADayOfYear, który określa dzień w roku.

Przykład:

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


Zobacz też: