EndOfTheDay
Модуль: DateUtils
function EndOfTheDay(const AValue: TDateTime): TDateTime;
Функция возвращает TDateTime, который представляет последнюю миллисекунду дня. Функция возвращает последний момент дня, указанный в параметре AValue :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var Date: TDateTime; begin //Format daty z milisekundami LongTimeFormat := 'hh:mm:ss.zzz'; Date:= EndOfTheDay(Now); WriteLn(DateTimeToStr(Date)); Readln; end. |
Функция покажет нам последнюю миллисекунду сегодняшнего дня.