Перевод 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