MyTetra Share
Делитесь знаниями!
Сумма по товару
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 14 Преобразование Чисел и Дат
Запись: xintrea/mytetra_db_adgaver_new/master/base/153201842900kkpbfj5d/text.html на raw.githubusercontent.com

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

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.59
Яндекс индекс цитирования