Zeit in hh:mm:ss anzeigen

[EWeiss]

Zitat von DJ-SPM:

So hatte ich es auch... ABER:

Ich habe folgendes gerechnet

diff:=GetTickDiff(recstart, GetTickCount()); Doch das sind ja keine Sekunden, sondern 1/1000-Sekunden. Ich danke dir...

Also, für alle, die genauso auf dem Schlauch stehen, wie ich:

Delphi-Quellcode:

var
  h, m, s: Integer;
  diff: Integer;
begin
  diff:=GetTickDiff(recstart, GetTickCount()) div 1000; // <- erst durch div 1000 werden es Sekunden!!!

  h:=diff div 3600;
  m:=(diff div 60) mod 60;
  s:=diff mod 60;

  Label2.Caption:=Format('%.2d:%.2d:%.2d', [h,m,s]);

Danke und gute Nacht!

hmmmm geht auch so..

Delphi-Quellcode:

function GetSongPosStr(timeinms: integer): string;
var
  time_s: double;
  hours, minutes, seconds, dsec: integer;
begin

  if timeinms >= 0 then
  begin
    time_s  := timeinms * 0.001;
    hours   := Trunc(time_s / 60 / 60) mod 60;
    time_s  := time_s - (hours * 60 * 60);
    minutes := Trunc(time_s / 60);
    time_s  := time_s - (minutes * 60);
    seconds := Trunc(time_s);
    time_s  := time_s - seconds;
    dsec    := Trunc(time_s * 100);

    if hours > 0 then
      Result := Format('%2d:%.2d:%.2d.%.2d', [hours, minutes, seconds, dsec])
    else
      Result := Format('%.2d:%.2d.%.2d', [minutes, seconds, dsec]);
  end else
    Result := '';
end;

Kann man auch für deine zwecke verwenden

gruss Emil