Function dmwSymArithRoundUp(ByVal Number As Variant, ByVal Places As Integer) _<a href="project-management-kent.htm">project management</a>
								      As Double<a href="project-management-kent.htm">project management</a>
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<a href="project-management-kent.htm">project management</a>
' Note: Symmetric arithmetic rounding<a href="project-management-kent.htm">project management</a>
' Positive and negative numbers move away from 0<a href="project-management-kent.htm">project management</a>
' .5s rounded up<a href="project-management-kent.htm">project management</a>
' Author: David Wallis (DMW Consultancy Limited)<a href="project-management-kent.htm">project management</a>
' Date: 28 Aug 1997<a href="project-management-kent.htm">project management</a>'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~<a href="project-management-kent.htm">project management</a>
Dim dblTemp As Double<a href="project-management-kent.htm">project management</a>dblTemp = CDec(Nz(Number))<a href="project-management-kent.htm">project management</a>
dblTemp = CDec(dblTemp * 10 ^ Places)<a href="project-management-kent.htm">project management</a>dmwSymArithRoundUp = Fix(dblTemp + 0.5 * Sgn(Number)) / 10 ^ Places<a href="project-management-kent.htm">project management</a>End Function