Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Minuten zählen und als formatierten hh.mm String ausgeben

  Alt 27. Feb 2008, 17:19
Hallo Wissende

ich erhalte in 5 Parametern die Minuten von diversen Prozessen. Ich will nun alle zusammenrechnen und daraus einen formatierten String erstellen.

Wenn alle minuten mm_1 - mm_5 leer oder 0 sind, dann soll das Ergebnis 0:00 oder 0'00 sein.

Oder z.B. mm_1 = 65 und mm_2 = 36 dann soll das Ergebnis 1:41 oder 1'41 sein.

die folgende Routine macht das schon, aber ich erhalte statt 1:02 => 1:2
Delphi-Quellcode:
mm_tot := mm_1 + mm_2 + mm_3 + mm_4 + mm_5;
hh_tot := (mm_tot div 60);
mm_tot := mm_tot Mod 60;
str_mtime := (inttostr(hh_tot)+''''+IntToStr(mm_tot));
lbl_mtime_udp.Caption := str_mtime;
Kann mir bitte jemand helfen? Ich bin nicht sehr mit der Formatierung von Strings vertraut...
Danke
Tom
  Mit Zitat antworten Zitat