EndOfTheDay
DJW
EndOfTheDay
Moduł: DateUtils
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.
Funkcja pokaże nam ostatnią milisekundę dzisiejszego dnia.