Zeitmessung

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von loirad · begonnen am 9. Mai 2011 · letzter Beitrag vom 10. Mai 2011

Vorheriger Beitrag

Nächster Beitrag

loirad

Registriert seit: 25. Nov 2009
135 Beiträge

Delphi 6 Professional

#12

AW: Zeitmessung

9. Mai 2011, 21:03

Ich send einfach mal den wichtigen Teil des Quelltextes:

markieren

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?

Wer Fehler findet darf sie behalten!