Zeitdifferenz berechnen (negativwert)

[Uwe Raabe]

Delphi-Quellcode:

function FormatDateTimeSigned(const Format: string; DateTime: TDateTime): string;
begin
  result := SysUtils.FormatDateTime(Format, abs(DateTime));
  if DateTime < 0 then
    result := '-' + result;
end;