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

Public Function TotalByRecord(vPrice As Variant, vQuantity As Variant, Optional iRoundTo% = 2) As Currency
'es 07.03.2019
'Возвращает сумму по товару, в запросе или форме например.
' - при ошибке аозвращает 0
'--------------------------------------------------------------------
'Аргументы:
'   vPrice     = Цена товара (до 4х знаков)
'   vQuantity  = Кол-во товара (возможно дробное до 4х знаков)
'   iRoundTo   = Опционально - Округлять до ... (по умолчанию 2 знака после запятой)
'--------------------------------------------------------------------
Dim cPrice As Currency, cQuantity As Currency

On Error GoTo TotalByRecord_Err
    
    cPrice = Nz(vPrice)
    cQuantity = Nz(vQuantity)
    
    TotalByRecord = CCur(Round(cPrice * cQuantity, iRoundTo))
    Exit Function
    
TotalByRecord_Err:
   TotalByRecord = 0: Err.Clear
End Function