TopPicLogo TopPicText

Сумма по товару

Function esTotal(curPrice As Currency, curQuantity As Currency) As Currency
'es 01.07.2011
'Возвращает сумму по товару
'--------------------------------------------------------------------
'Аргументы:
'   curPrice     = Цена товара
'   curQuantity  = Кол-во товара (возможно дробное)
'--------------------------------------------------------------------
On Error GoTo TotalErr
    esTotal = CCur(Round(curPrice * curQuantity, 2))
    Exit Function
TotalErr:
   esTotal = 0: Err.Clear
End Function

Achtung!!!
Только для MSA2000 и выше

Назад ToTop
L.E. 12.11.2012
Рейтинг@Mail.ru