Rounding decimal numbers

[M[a]nny]

Hello, guys!

I think the most of you know this function:

Code: Pascal  [Select][+][-]

1. function Round ( const Number  : Extended ) : Int64;

Example:

Code: Pascal  [Select][+][-]

1. result := Round(15.5); // result := 16

This function works great but is there any way how to round decimal values, either?
PHP has round function, too:

Code: PHP  [Select][+][-]

1. echo round(1.95583, 2);  // will return 1.96

... but as you can see, there is second parameter which defines how many decimal places would be taken.

Does exist similar function here, in Object Pascal?

[Laksen]

I don't think so. A functional equivalent could be

Code: Pascal  [Select][+][-]

1. uses math;
2. ...
3. function round2(const Number: extended; const Places: longint): extended;
4. var t: extended;
5. begin
6.    t := power(10, places);
7.    round2 := round(Number*t)/t;
8. end;
9.  

If you need it for string formatting, there are attributes that control decimal places in most of the formatting functinos

[M[a]nny]

Thank you Beauty in simplicity.

[Vincent Snijders]

There RoundTo in the math unit.