fpc/tests/webtbs/tw39735.pp

9 lines
113 B
ObjectPascal

program tw39735;
uses
sysutils;
var
LStart: TDateTime;
begin
LStart := DateTimeToTimeStamp(Now).Time;
end.