Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: In Stunden, Minuten, und Sekunden umrechnen

    Delphi
    by nTE, 13. Okt 2003
  Hehe, ja. Mir fällt gerade auf, dass du Millisekundenangaben haben musst und die müssten dann vorher noch mit dSec := dSec div 1000; eingestellt werden. =)
  
  Die erste If-Abfrage sollte für dich vielleicht auch etwas uninteressant sein. :P
  
  Mmh.. *grübel* Ich glaub ich muss mal grad schauen was diese Angabe von oben (164264) in die Zeitangabe von 1h.. usw. überführt. =)
  
  ----------
  
  Gut,...
• Forum: Sonstige Fragen zu Delphi

  Re: In Stunden, Minuten, und Sekunden umrechnen

    Delphi
    by nTE, 13. Okt 2003
  Ich glaube, da du keine TDateTime Struktur sondern eine Sekundenangabe hast, musst du diese einfach nur umrechen. Meine Variante sieht so aus:
  
  
  function TFormMain.SecsToTime(dSec: LongWord): String;
  begin
  // mindenstens 1 Tag
  if dSec >= 86400 then
  Result := IntToStr(dSec div 86400) + ' Tag(e), ' + IntToStr((dSec - ((dSec div 86400) * 86400)) div 3600) + ' Stunde(n), ' +...