Home » Tipps & Tricks » Mathematik » Arithmetik » Zahl bis zu einer bestimmten Stelle runden

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.

Anzeigen

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *

Fragen und Anregungen können gerne im Forum gepostet werden. Die hierfür vorgesehene Sparte ist Delphi-Treff>>Feedback.