genaue Zeitangabe

[himitsu]

Delphi-Quellcode:

Var Start, Ende, Dauer: TDateTime;
  Tage: Ineger;
  SMS: TTime;

Start := Now;
...
End := Now;

Dauer := Ende - Start;

Tage := Trunc(Dauer);
SMS := Frac(Dauer); {Sunden Minuten, Sekunden...}