MyTetra Share
Делитесь знаниями!
fraughting clipart fraught adopts on Clipart for Biz
Сумма по товару
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 14 Преобразование Чисел и Дат

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

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 и выше

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