MyTetra Share
Делитесь знаниями!
Сумма по товару
19.07.2018
19:40
Раздел: 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
Яндекс индекс цитирования