Auf 2 stellen Runden

[Dax]

Delphi ist nun mal nicht FoxPro.

Delphi-Quellcode:

function Round(e: Extended; precision: Integer): Extended;
var factor: Extended;
begin
  factor := Power(10, precision);
  Result := Round(e * factor) / factor;
end;