Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#113: How can I round a number correctly?

From first times when was released a Borland Pascal, in sources was included a "bank" algorithm of number rounding.
For example,
Round(25.5) = 26
but
Round(26.5) = 26.

For banks or some other financial organizations this algorithm is good but in other type of calculations we want a standard rounding. For this tasks I use the own small function that I use instead standard:

function CorrectRound(x: Extended): LongInt;
begin
  Result := Trunc(x);
  if (Frac(x) >= 0.5) then
    Result := Result + 1;
end;

Published: January 7, 2001

See also

	Excel Web-stream
	ABA Picture Convert
	DBLoad
	dBase Viewer
	ABA Spreadsheet Convert
	Clarion Viewer
	Paradox to MS Access converter
	DBISAM Viewer
	MAPIMail
	SMMsg suite

Contact to webmaster