Function dmwSymArithRoundUp(ByVal Number As Variant, ByVal Places As Integer) _project management
As Doubleproject management
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~project management
' Note: Symmetric arithmetic roundingproject management
' Positive and negative numbers move away from 0project management
' .5s rounded upproject management
' Author: David Wallis (DMW Consultancy Limited)project management
' Date: 28 Aug 1997project management'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~project management
Dim dblTemp As Doubleproject managementdblTemp = CDec(Nz(Number))project management
dblTemp = CDec(dblTemp * 10 ^ Places)project managementdmwSymArithRoundUp = Fix(dblTemp + 0.5 * Sgn(Number)) / 10 ^ Placesproject managementEnd Function