Janilabo | DifferenceE() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the (absolute) difference between value1 and value2.
[==============================================================================}
function DifferenceE(value1, value2: Extended): Extended;
begin
  Result := Abs(value2 - value1);
end;

begin
  ClearDebug;
  WriteLn(DifferenceE(-99.99, 99.99));
  WriteLn(DifferenceE(2.22, 1.23));
  WriteLn(DifferenceE(999.1234, 0));
  WriteLn(DifferenceE(4, 4));
  WriteLn(DifferenceE(100, 100.001));
end.