Public Sub DecimalRound(NumberOfDigits As Int) As DecimalNumber
Dim handler As NativeObject
handler.Initialize("NSDecimalNumberHandler")
handler = handler.RunMethod("decimalNumberHandlerWithRoundingMode:scale:raiseOnExactness:raiseOnOverflow:raiseOnUnderflow:raiseOnDivideByZero:", _
Array(3, NumberOfDigits, False, False, False, False)) '3 = bankers rounding
Dim dm As DecimalNumber
dm.Initialize("")
Return dm.InitWithDecimal(num.RunMethod("decimalNumberByRoundingAccordingToBehavior:", Array(handler)))
End Sub