Beiträge durchsuchen

Zahl bis zu einer bestimmten Stelle runden

Hier bieten sich, je nach Aufgabenstellung, mehrere Möglichkeiten an.Ohne Runden:

uses Math,...;

function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended;
Var
  Multi:Integer;
begin
  Multi:=Trunc(IntPower(10,PointPos));
  Result := Trunc(Number * Multi)/Multi;
end;

Mit Runden

uses Math,...;

function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended;
Var
  Multi:Integer;
begin
  Multi:=Trunc(IntPower(10,PointPos));
  Result := Round(Number * Multi)/Multi;
end;

Mit

function RoundToPointPosition(Number : Extended; PointPos : Byte): String;
Begin
  Result:=FloatToStrF(Number,ffFixed,10,PointPos);
End; 

kann das Ergebnis in einen entsprechenden String umgewandelt werden.