Zeit ausrechnen

[fui-tak]

Sowas hab ich mir vorgestern zusammengebastelt:

Delphi-Quellcode:

var 
  zaehler: integer;
  sekunde: integer;
  minute: integer;
  stunde: integer;
  zeit: string;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
   zaehler := zaehler + 1;
   sekunde := zaehler mod 60;  
   minute := (zaehler div 60) mod 60; 
   stunde := zaehler div 3600;  
   zeit := IntToStr(stunde)+':'+IntToStr(minute)+':'+IntToStr(sekunde);
end;

Timer1.interval ist dabei auf 1000 gestellt, also einmal pro Sekunde.
"zaehler" sind bei mir die gesamten Sekunden, die in Stunde, Minute und Sekunde umgerechnet werden.




Für das Umrechnen von Minuten zu Stunden und Minuten müsste folgendes gehen:

Delphi-Quellcode:

var 
  zaehler: integer;
  minute: integer;
  stunde: integer;
  zeit: string;



procedure TForm1.Button1Click(Sender: TObject);
begin
   zaehler := 160; //Hier kommt die Anzahl der Minuten rein
   minute := zaehler mod 60;  
   stunde := zaehler div 60;  
   zeit := IntToStr(stunde)+':'+IntToStr(minute);
end;