Einzelnen Beitrag anzeigen

Gentleman

Registriert seit: 29. Sep 2004
302 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: millisekunden -> minuten, sekunden [erledigt]

  Alt 27. Jan 2005, 16:43
wenn ich richtig überlegt habe dann müsste es rechnerisch in etwa so gehen:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  min, sec, tsec, rest: Integer;
begin
  tsec:= 85000;
  min:= tsec div 60000;
  rest:= 85000 - (60000 * min);
  sec:= rest div 1000;
  label1.Caption:= inttostr(min) + ':' + inttostr(sec);
end;
Lennard
Der Vorteil der Klugheit besteht darin, dass man sich dumm stellen kann. Das Gegenteil ist schon schwieriger. (Kurt Tucholsky)
  Mit Zitat antworten Zitat