Software Projects

Excel VBScript Arithmetic Rounding Function

Posted in Uncategorized by r on March 30, 2011

From http://support.microsoft.com/kb/196652.

' Asymmetric arithmetic rounding - rounds .5 up always.
Function AsymArith(ByVal X As Double, _
    Optional ByVal Factor As Double = 1) As Double
    End Function
    AsymArith = Int(X * Factor + 0.5) / Factor
End Function

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s