Registriert seit: 29. Sep 2004
302 Beiträge
Turbo Delphi für Win32
|
Re: millisekunden -> minuten, sekunden [erledigt]
27. Jan 2005, 17: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)
|