sekunden zu zeit?

[Headi]

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