EndOfADay
Модуль: DateUtils
function EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;
function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;
Функция возвращает последний возможный момент дня (время) на основе параметров, переданных в функцию. AYear указывает год; AMonth — месяц, а ADay — день. Можно использовать перегруженную функцию, в которой должен быть указан параметр ADayOfYear , который указывает день года.
пример:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var A : TDateTime; begin A := EndOfADay(2006, 06, 20); Writeln(DateTimeToStr(A)); Readln; end. |