Another implementation that I just wrote:

CREATE FUNCTION BANKROUND(@val as money)
RETURNS money AS
BEGIN
  DECLARE @nonsig AS money
  DECLARE @newval AS money
  DECLARE @changesign AS bit
  IF @val...