Zeit ausrechnen

[milos]

Wie kann man machen das man beim Resultat nicht 160min sonder von alleine ausrechnet das es 2stunden und 40minuten sind?

PS: Ich weiss ich frage viel und weiss wenig! Aber ich hab schon gesucht...

[DeddyH]

ShowMessage(Format('%d Stunden und %d Minuten',[160 div 60, 160 mod 60])); Schau Dir mal div und mod an.

[mkinzler]

U.U. hilft au ein Blick in die Unit DateUtils

[milos]

Hmmm ich hab geschaut aber es nützt mir nix

[DeddyH]

Was hast Du geschaut und was nützt Dir nix? Bei diesen spärlichen Infos wird Dir niemand helfen können.

[milos]

Also ich hab Unit DateUtils im quellcode eingegeben und F1 geklickt du weisst ja was kommt! aber es kommt nur DateToStr das hab ich mal geklickt und das hat mir nichts genützt

[DeddyH]

Und was ist mit meiner "Fußgängerlösung" mit div und mod?

[Die Muhkuh]

Es sollte doch gehen mit dem, was Detlef geschrieben hat.

[3_of_8]

Tipp: div gibt dir das abgerundete Ergebnis einer Division (macht also eine ganzzahlige Division), mod gibt dir den Rest einer Division. Jetzt rate mal, was passiert, wenn man 160 ganzzahlig durch 60 teilt. Was ist dann 160 div 60 und was ist 160 mod 60?

[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;