MidpointRounding.AwayFromZero functionality in .Net Compact Framework

Dave5709

Rate me:

1.00/5 (1 vote)

14 May 2010CPOL

22.9K

The Math.Round function in the Compact Framework only allows for ToEven behavior, not the AwayFromZero functionality as listed here:http://msdn.microsoft.com/en-us/library/system.midpointrounding.aspx[^]This code will allow you to emulate the MidpointRounding.AwayFromZero functionality of...

The Math.Round function in the Compact Framework only allows for ToEven behavior, not the AwayFromZero functionality as listed here:
http://msdn.microsoft.com/en-us/library/system.midpointrounding.aspx[^]

This code will allow you to emulate the MidpointRounding.AwayFromZero functionality of the full .NET Framework.

Public Function RoundAwayFromZero(ByVal startValue As Decimal, ByVal digits As Integer) As Decimal
    Dim decimalValue As Integer
    startValue *= CDec(10 ^ (digits + 1))
    decimalValue = CInt(Decimal.Floor(startValue) - Decimal.Floor(startValue / 10) * 10)
    startValue = Decimal.Floor(startValue / 10)
    If decimalValue >= 5 Then
      startValue += 1
    End If
    startValue /= CDec(10 ^ (digits))
    Return startValue
End Function

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

Dave5709

United States

This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

MidpointRounding.AwayFromZero functionality in .Net Compact Framework

License

Comments and Discussions