**Public Function RoundToPrecision( _
ByVal vNumber As Variant _
, Optional ByVal vPrecision As Variant _
) As Variant**

**Round the number vNumber to the nearest vPrecision. **

**Examples:** RoundToPrecision(45.3) = 45
RoundToPrecision(45.5) = 46 ' #2
RoundToPrecision(45.7) = 46
RoundToPrecision(-45.7) = -46
RoundToPrecision(-45.5) = -45 ' #5
RoundToPrecision(-45.3) = -45
RoundToPrecision(-45.37, .1) = -45.4
RoundToPrecision(-12.3456, .01) = -12.35

**See also:** RoundToPrecisionVerify Subroutine
RoundToDigits Function
Round Function (Visual Basic)
Ceiling Function
Floor Function
NextNumber Function
PreviousNumber Function

**vNumber:** The number that is rounded either up or down to the nearest vPrecision. Function returns Null if vNumber is Null or cannot be fixed up to a number.

**Note:** When vNumber is exactly half-way between the range the numbers, it is always rounded up, as in examples #2 and #5. **vPrecision:** The nearest number to which vNumber is rounded. vPrecision defaults to 1 (zero) if it is missing or Null or cannot be fixed up to a String. With a precision of 1 (one), vNumber will be rounded to the nearest integer; with a precision of .1, vNumber will be rounded to the nearest tenth, etc.

**Definition:**

Floor(vNumber / vPrecision + .5) * vPrecision

**v1.3 BugFix:** This function was returning incorrect results in prior versions of Entisoft Tools. Both the Function and its Definition have been corrected.

**v1.5 Change:** This function has been renamed from Round to RoundToPrecision, in order to avoid confusion with the new Round Function in Visual Basic 6.0. The Round function in Visual Basic 6.0 is the same as the RoundToDigits Function in Entisoft Tools. Copyright 1996-1999 Entisoft

Entisoft Tools is a trademark of Entisoft.