TopPicLogo TopPicText

Перевод Cуммы из одной валюты в другую

Public Function esChangeCurr(srsSum As Currency, srsCurse As Currency, _
                        dstCurse As Currency, _
                        Optional frp As Byte = 2) As Currency
'es 01.07.2011
'Переводит сумму из одной валюты в другую по курсу относительно третьей
'--------------------------------------------------------------------
'Аргументы:
'   srsSum       = Сумма в исходной валюте
'   srsCurse     = Курс исходной валюты
'   dstCurse     = Курс валюты Назначения
'   frp          = Кол-во знаков в дробной части результата (По умолчанию 2)
'--------------------------------------------------------------------
'Например:
'       Debug.Print esChangeCurr(100, 28, 42) ' вернет: 66,667
'--------------------------------------------------------------------
Dim k As Double
On Error GoTo esChangeCurrErr
    k = CDbl(srsCurse / dstCurse)
    esChangeCurr = CCur(Round(srsSum * k, frp))
    Exit Function
esChangeCurrErr:
    esChangeCurr = 0: Err.Clear
End Function
Назад ToTop
L.E. 12.11.2012
Рейтинг@Mail.ru