MyTetra Share
Делитесь знаниями!
Проценты - Цена по наценке и скидке "по хитрому"
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 14 Преобразование Чисел и Дат

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

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



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования