Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: GetTickcount in stunden minuten und sekunden???

    Delphi
    by Duffy, 4. Aug 2003
  Hallo wb32,
  anbei mal ein Codefragment wie es gehen könnte. Als Grundlage hat mir der Beitrag Sekunden in Zeit umwandeln gedient.
  procedure TForm1.BitBtn1Click(Sender: TObject);
  var
  Start, Stop: Integer;
  begin
  Start := GetTickCount;
  Sleep(10000);
  Stop := GetTickCount;
  ShowMessage(TimeToStr((Stop - Start) * (1 / 24 / 60 / 60 / 1000)));