Implement an alternative round command in Delphi

Delphi provides standard commands to round and truncate decimal numbers. For Example:

Round(12.75) = 13
Trunc(12.75) = 12
Int(12.75) = 12
Frac(12.75) = 0.75

What about if we want to use a specific number of decimal digits? For example, we want to use 2 decimal digits and 1,2345 to be rounded to 1,24 or 3 decimal digits and have as result 1,235.

Find below the nkRound commands to implement this:

  Function nkRound(x: Real; DecimalDigits: Integer): Real;
  var
    i, f: integer;
    r: Real;
  begin
    f:=1;
    for i:=1 to DecimalDigits do
      f:=f*10;
    r:=x*f;
    r:=Round(r);
    r:=r/f;
    Result:=r;
  end;

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest