Round_To_Step() - Округление до ближайшего шага цены

Сестричка функций Floor_To_Step() и Ceil_To_Step(). Округляет до ближайшего кратного шагу.

' Округление до ближайшего кратного шагу
FUNC Round_To_Step(result,rts_step)
    if 0+rts_step == 0
               result = Round(result)
    else
               result = Round(result / rts_step) * rts_step
    end if
END FUNC

Вариант с использованием препроцессора M4: 

define(`Round_To_Step',`(Round(`$1' / `$2') * `$2')')