UtterAccess HomeUtterAccess Wiki

Welcome Guest ( Log In | Register )

Custom Search
Edit Discussion
> RoundToNearest    
(Difference between revisions)

Revision as of 16:42, 11 March 2013


RoundToNearest() Function

Return a ceiling or floor value of the passed value to the nearest interval.


RoundToNearest(dblValue, [dblInterval], [blUseCeiling])

Where dblValue is value you wish to round; "dblInterval" is the interval you wish to round the value to, the default is 1; "blUseCeiling" if set to True, the returned value is the "next" interval value, if False, the value returned in the 'previous" interval value (the default is True).

Public Function RoundToNearest(dblValue As Double, _
                        Optional dblInterval As Double = 1, _
                        Optional blUseCeiling As Boolean = True) As Double
'Returns the ceiling or floor of the passed value to the nearest
'interval.  blUseCeiling of False will coerce to the interval value
'less than the passed value, blUseCeiling of TRUE (Default) will
'coerce to the interval value greater than the value passed.
' http://www.utteraccess.com/wiki/index.php/RoundToNearest
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
' You are free to use this code in any application,
' provided this notice is left unchanged.
' rev  date        brief descripton
' 1.0  2013-03-11  Initial Release
   If dblInterval <> 0 Then
       If blUseCeiling = True Then
           RoundToNearest = -Int(-dblValue / dblInterval) * dblInterval
           RoundToNearest = Int(dblValue / dblInterval) * dblInterval
       End If
       RoundToNearest = 0
   End If
End Function

Return Value



From the Immediate Window:


? RoundToNearest(38125,500,False)

? RoundToNearest(38625,500,False)

? RoundToNearest(38125,500,True)

? RoundToNearest(38625,500,True)

Creative Commons License
RoundToNearest by UtterAccess Wiki is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.
Editing and revision of the content is freely encouraged; for details, see Expected Usage.

Edit Discussion
Custom Search

Thank you for your support!