Применение наценки с заданными параметрами округления результата

Аргументы: MyPrice - начальная цена: MyPercent - процент наценки: MyFix - сколько округлять
Назначение: Округляет значение до 2 зн. после запятой по правилам бухгалтерии
Возвращает: Округленное значение в формате Currency

Public Function jsPriceUP(MyPrice As Currency, MyProcent As Integer, MyFix As Byte) As Currency
On Error GoTo m1
Select Case MyFix
  Case 10
      jsPriceUP = CCur(Format(MyPrice * (MyProcent / 100 + 1), "0.0"))
  Case 5
      jsPriceUP = CCur(Format((MyPrice * (MyProcent / 100 + 1)) * 2, "0.0") / 2)
  Case Else
      jsPriceUP = CCur(Format(MyPrice * (MyProcent / 100 + 1), "0.00"))
End Select
Exit Function
m1:
jsPriceUP = 0
End Function


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8902