Wie schnell ist Now?

[glkgereon]

ähm, was spricht gegen so eine messweise?

Delphi-Quellcode:

start:=time;
for i:=1 to 999999 do x:=now;
stop:=time;

oder gegen eine solche konsolenanwendung?

Delphi-Quellcode:

zeit:TDateTime;
  i:Int64;

begin
  Werte:=TStringList.Create;
  writeln('Es wird nun die Geschwindigkeit von now 1 Minute lang getestet...');
  zeit:=now;
  while (now<zeit+0.000694444444) do inc(i);
  writeln('Es wurden '+inttostr(i)+' Versuche geschafft...');
  writeln('-> '+floattostr(i / 60)+' pro Sekunde...');
  writeln('-> '+floattostr(60000 / i)+' Millisekunden pro Durchlauf...');
  readln;
end.