Vorstellung des Codes zur übersichtlichen Anzeige von Zeiten

[himitsu]

Delphi-Quellcode:

function ZeitString(msec: LongWord): string;
var
  time: TDateTime;
  s: string;
begin
  //if msec = 0 then Exit('none');
  time := msec / MSecsPerDay;
  if time >= 1 then s := Format(', %d "day"', Trunc(time));
  if HourOf(time) <> 0 then s := s + ', h "hrs"';
  if MinuteOf(time) <> 0 then s := s + ', m "min"';
  if SecondOf(time) <> 0 then s := s + ', s "sec"';
  if MilliSecondOf(time) <> 0 then s := s + ', z "ms"';
  Result := FormatDateTime(Copy(s, 3), time);
end;