**********************************************************
Frank van Eeken [eeken@q-ray.nl]
**********************************************************
I was looking at the function rounding. Once I had to make a Round-function and
I made exactly the same function as you showed on your VB-page.
But this one isn't working properly. (reference: VB 09-05-97)
See the example below:
Round(2.15,1) = 2.2 OK
Round(1.15,1) = 1.1 Not OK
The type declaration of the parameter X should be changed from Double to Variant.
Function Round (X as Variant, DP as integer) as Double
Round = Int((X * 10 ^ DP) + 0.5) / 10 ^ DP
End Function
Frank van Eeken
Internet: http://www.q-ray.nl, http://www.agriplus.nl
**********************************************************
Faraz Khan [Faraz.Khan@asu.edu]
**********************************************************
Use the following:
Function Round (X as Double, DP as integer) as Double
Round = Int((X * 10 ^ DP) + 0.5) / 10 ^ DP
End Function
where DP is the decimal place to round to (0 to 14) e.g
Round (3.56376, 3) will give the result 3.564
Round (3.56376, 1) will give the result 3.6
Round (3.56376, 0) will give the result 4
Round (3.56376, 2) will give the result 3.56
Round (1.4999, 3) will give the result 1.5
Round (1.4899, 2) will give the result 1.49
*****************************************************************
Geoff Stirling: Montreal, PQ, Canada
*****************************************************************
How to round a number to the nearest value of 5.
12.4 + 2.5 = 14.9 \5 = 2 * 5 = 10
12.6 + 2.5 = 15.1\5 = 3 * 5 = 15
18.1 + 2.5 = 20.6\5 = 4 * 5 =20
Note the case of 12.5 (12.5 + 2.5 = 15\5 = 3 * 5 = 15). This rounds
up from the midpoint. If you want to round down at the midpoint, you
might have to use 2.49 or 2.499 etc depending on the precision of your
data.
