485
edits
Rounding Numbers: Difference between revisions
m
typo
m (typo) |
|||
| (8 intermediate revisions by 5 users not shown) | |||
| Line 1: | Line 1: | ||
= Rounding Numbers = | |||
'' The following has been taken from the DAW newsgroup, User Contributed Oct 6 2000 '' | '' The following has been taken from the DAW newsgroup, User Contributed Oct 6 2000 '' | ||
== MARF - A Mutually Agreed Rounding Function?! == | |||
Aside from UI issues, OS and hardware problems, perhaps one of the most | Aside from UI issues, OS and hardware problems, perhaps one of the most | ||
| Line 25: | Line 25: | ||
ie. ± 99,999,999,999,999.99999999. | ie. ± 99,999,999,999,999.99999999. | ||
(b) Rounding should occur when the digit to the right of the rounding | (b) Rounding '''up''' should occur when the digit to the right of the rounding | ||
position is 5 or above. I take this to be a reasonably 'international' | position is 5 or above, otherwise rounding '''down''' should occur. I take this to be a reasonably 'international' | ||
convention. | convention. | ||
| Line 56: | Line 56: | ||
Michael Pilsworth | Michael Pilsworth | ||
= Source = | |||
<source lang="dataflex"> | |||
// =========================================================================== | |||
// | |||
// The ROUND_NUMBER global function has been designed to return the rounded | |||
// value of a given 'numeric' argument at a specified rounding precision. | |||
// | |||
// The function requires two arguments, as follows:- | |||
// | |||
// (a) The numeric value to be rounded, where the range of valid values is | |||
// +/- 99,999,999,999,999.99999999. | |||
// | |||
// (b) The rounding precision required. This must be an integer value in the | |||
// range -13 to +8. If a value outside this range is used, the nearest | |||
// threshold value is substituted. | |||
// | |||
// Values in the range +1 to +7 perform rounding on the decimal part of | |||
// the number. A value of +8 will perform no rounding at all. A zero | |||
// value will round to the nearest whole number. Values -1 to -13 will | |||
// round progressively to the left of the decimal point (a frequent | |||
// requirement in financial reporting). | |||
// | |||
// If the result of the rounding produces a value outside the valid numeric | |||
// range (+/- 99,999,999,999,999.99999999) then a zero value is returned. | |||
// | |||
// Assumptions:- The only assumptions made have been that the range of | |||
// numeric values and the limit of eight decimal places are unlikely to change | |||
// in the forseeable future. | |||
// | |||
// Examples:- | |||
// | |||
// 1st Argument 2nd Argument Return Value | |||
// ------------ ------------ ------------ | |||
// 123456.87654321 8 123456.87654321 | |||
// 123456.87654321 2 123456.88 | |||
// -123456.87654321 2 -123456.88 | |||
// 123456.98765432 0 123457 | |||
// -123456.98765432 -1 -123460 | |||
// 123456.98765432 -2 123500 | |||
// 123456.98765432 -3 123000 | |||
// 987654 -4 990000 | |||
// 987654 -5 1000000 | |||
// 987654 -6 1000000 | |||
// 987654 -7 0 | |||
// | |||
// =========================================================================== | |||
Function Round_Number GLOBAL number nVal integer iRnd returns Number | Function Round_Number GLOBAL number nVal integer iRnd returns Number | ||
// If the rounding precision falls in the range -5 to +8, then return:- | // If the rounding precision falls in the range -5 to +8, then return:- | ||
If (iRnd >= -5) Function_Return ; | If (iRnd >= -5) Function_Return ; | ||
(Number(Abs(nVal) / nVal) * 0.5 / (Number(10 ^ (iRnd min 8))) + nVal ; | (Number(Abs(nVal) / nVal) * 0.5 / (Number(10 ^ (iRnd min 8))) + nVal ; | ||
/ (Number(10 ^ (8 - (iRnd min 8)))) * (Number(10 ^ (8 - (iRnd min 8))))) | / (Number(10 ^ (8 - (iRnd min 8)))) * (Number(10 ^ (8 - (iRnd min 8))))) | ||
// Else, where the rounding precision is in the range -6 to -13, return:- | |||
Function_Return ; | |||
(Number(Abs(nVal) / nVal) * 0.5 * (Number(10 ^ (Abs(iRnd) min 13))) ; | |||
+ nVal / (Number(10 ^ 13)) / (Number(10 ^ ((Abs(iRnd) - 5) min 8))) ; | |||
* (Number(10 ^ 13)) * (Number(10 ^ ((Abs(iRnd) - 5) min 8)))) | |||
End_Function | End_Function | ||
</source> | |||
= Links = | |||
* https://support.dataaccess.com/Forums/showthread.php?55971-Rounding-to-nearest-5-cents | |||
[[Category: Basics]] | |||