Функция CCur

Функция CCur(Conversion to Currency) преобразует выражение в денежный тип Currency

Expression

Обязательный аргумент представляет собой любое числовое выражение или строку, представляющую собой число без знака в диапазоне значений от -922 337 203 685 477.5808 до 922 337 203 685 477.5807
Если Expression является дробным числом с более чем четырьмя знаками в дробной части, CCur округляет его до четырех десятичных знаков
Если Expression не попадает в диапазон допустимых значений Currency, генерируется ошибка стадии выполнения Overflow
Единственная локализованная информация, включаемая в возвращаемое значение CCur - это разделитель дробной части

Dim A
A=123.456789 ' тип Double
' Преобразуем в значение типа Currency
Debug.Print CCur(A*2)