Zitat von
marabu:
Hallo Pascal,
wer hat dir gesagt, dass du eine Zeitmenge einfach in ein Datum umwandeln kannst?
DateTimeToStr() ist einfach fehl am Platz:
Delphi-Quellcode:
function LongTimeToStr(seconds: Cardinal): string;
var
dt: TDateTime;
days: Integer;
begin
dt := seconds / SecsPerDay;
Result := TimeToStr(dt);
days := Trunc(dt);
case days of
0: Result := TimeToStr(dt);
1: Result := IntToStr(days) + ' Tag ' + TimeToStr(dt);
else Result := IntToStr(days) + ' Tage ' + TimeToStr(dt);
end;
end;
Freundliche Grüße vom marabu
lol... ok das habe ich jetzt nicht gewusst
habe gedacht wenn es diese funktion schon gibt stimmt die auch.. war wohl einfach nicht so.
vielen dank... funktioniert jetzt auch
mfg pascal