Scalabium Software

SMExport advertising
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
 
SMImport suite
SMDBGrid
Viewer for TNEF-files (winmail.dat)
Database Information Manager
ABA Picture Convert
DBISAM Password Recovery
DBLoad
Mail parser (ActiveX)
SMExport suite
Clarion Viewer
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2017, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport advertising