How to use the CCur Function (VBA)

This Excel tutorial explains how to use the Excel CCur function with syntax and examples using VBA.

SUMMARY:

The Excel VBA CCur function converts an expression into a Currency data type.

For example,

• The VBA Code CCur(10) would return 10
• The VBA Code CCur(33.955555) would return 33.9556

PURPOSE:

To converts a value to a Currency.

RETURN VALUE:

The CCur function returns a Currency value.

REMARKS:

• The CCur function can only be used in VBA code in Microsoft Excel.
• The Currency data type has a maximum of 15 digits to the left of the decimal place.
• The Currency data type has a maximum of 4 digits to the right of the decimal place.
• It can hold values between -922,337,203,685,477.5808 and 922,337,203,685,477.5807
• An overflow error will occur if the value is out of range.
• The Currency data type is a Value data type.
• This function can be used to force currency arithmetic in cases where single precision, double precision or integer arithmetic would normally occur.
• This function recognises decimals and thousand separators based on the local settings.

CCur Function VBA Code example:

Diffrent way to use the CCur function using Excel VBA Code...

CCur Function Example (as VBA code)

The CCur function can only be used in VBA code in Microsoft Excel.
The following VBA code shows how the CCur function can convert values into Currency data types.

Dim TestCase As Currency
TestCase = CCur(253.3567812)

In the above example, CCur(253.3567812) would return the currency value 253.3568, the variable called TestCase would now contain the currency value 253.3568

VBA CCur Function Error:

If you supply the CCur function with a numeric value that is less than -922,337,203,685,477.5808 or greater than 922,337,203,685,477.5807, you will get the error:
Run-time error '6': Overflow

If you supply the CCur function with a text String that cannot be converted to a number, you will get the error:
Run-time error '13': Type mismatch

---

---

Download Example Sample Excel File

CCur-function-example.xlsm

Useful Links: Link 1… Link 2… Link 3… Link 4…