**********************************************************
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.