* write execution time more precisely

git-svn-id: trunk@48843 -
This commit is contained in:
florian 2021-02-28 21:58:32 +00:00
parent ce3edc8c95
commit fb6867963f

View File

@ -6,7 +6,7 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
SysUtils,Classes,sha1,dateutils; SysUtils,Classes,sha1;
var var
StartTime: TDateTime; StartTime: TDateTime;
@ -24,6 +24,6 @@ begin
ss := LowerCase(SHA1Print(SHA1string(s))); ss := LowerCase(SHA1Print(SHA1string(s)));
EndTime:=now; EndTime:=now;
writeln('Performance test finished. Elapsed time:'); writeln('Performance test finished. Elapsed time:');
writeln(TimeToStr(EndTime-StartTime)); writeln((EndTime-StartTime)*3600*24:0:3,' s');
end. end.