ACC: How to Round a Number Up or Down by a Desired Increment

MORE INFORMATION

   Parameter     Value
   ---------     ---------------------------------------------------------
   Amt           The numeric value you want to round
   RoundAmt      The increment to which Amt will be rounded
   Direction     Constant indicating which direction to round (up or down)
				

1. Create a module and type the following lines in the Declarations section:

         Option Explicit
         Public Const vb_roundup = 1
         Public Const vb_rounddown = 0

   NOTE: In versions 1.x and 2.0, use the word "Global" instead of "Public."
2. Create the following procedure.
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

         Function RoundToNearest (Amt As Double, RoundAmt As Variant, _
                                  Direction As Integer) As Double
            On Error Resume Next
            Dim Temp As Double
            Temp = Amt / RoundAmt
            If Int(Temp) = Temp Then
               RoundToNearest = Amt
            Else
               If Direction = vb_rounddown Then
                  Temp = Int(Temp)
               Else
                  Temp = Int(Temp) + 1
               End If
               RoundToNearest = Temp * RoundAmt
            End If
         End Function
   						

3. To test this function, type each of the following lines in the Debug window (or Immediate window in 1.x and 2.0), and then press ENTER.

   ?RoundToNearest(1.36, 0.25, vb_roundup)

   Note that the procedure returns 1.5.

   ?RoundToNearest(1.36, 0.05, vb_rounddown)

   Note that the procedure returns 1.35.

   ?RoundToNearest(1.36, 0.75, vb_roundup)

   Note that the procedure returns 1.5, which is two increments of 0.75.