Проценты - Цена по наценке и скидке "по хитрому"

Public Function esPriceUpDown(cPrice As Currency, iMargin As Integer, iDiscount As Integer) As Currency

'es - 09.09.2012

'--------------------------------------------------------------------

'Возвращает новую цену по наценке и скидке "по хитрому"

'Если наценка (скидка) получилась меньше копейки то увеличиваем (уменьшаем) на копейку как минимум

'Аргументы:

' cPrice - Исх. Цена

' iMargin - Наценка

' iDiscount - Скидка

'--------------------------------------------------------------------

Dim tPrice As Currency

Dim rPrice As Currency

On Error GoTo esPriceUpDown_Err

tPrice = cPrice

rPrice = cPrice

'Сначала Наценка

If iMargin <> 0 Then

rPrice = CCur(Format(tPrice * (iMargin / 100 + 1), "0.00"))

If rPrice = tPrice Then 'Если Наценка меньше копейки

rPrice = tPrice + 0.01

End If

End If

'Теперь Скидка

If iDiscount <> 0 Then

tPrice = rPrice

rPrice = CCur(Format(tPrice * (1 - iDiscount / 100), "0.00"))

If rPrice = tPrice Then 'Если скидка меньше копейки

'Вычитаем (хоть) копейку

If rPrice > 0.02 Then rPrice = tPrice - 0.01

End If

End If

esPriceUpDown_Bye:

esPriceUpDown = rPrice

Exit Function

esPriceUpDown_Err:

rPrice = 0

Err.Clear

Resume esPriceUpDown_Bye

End Function