Ich send einfach mal den wichtigen Teil des Quelltextes:
Code:
procedure TForm1.BerechnenClick(Sender: TObject);
var start,ende:tdatetime;
begin
start:=now;
//Quelltext, dessen Zeit gemessen werden soll
ende:=now;
showmessage(SysUtils.FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',ende-start));
end;
(immernoch 30 Tage, 12 Monate und 99 Jahre ausgegeben)
Ideen?