Аргументы: 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
Ссылки по теме