Software Projects

Excel VBScript Arithmetic Rounding Function

Posted in Uncategorized by rmt 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
Advertisements

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s