Forum: Sonstige Fragen zu Delphi
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
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), ' +...