CCur Function Example

This example uses the CCur function to convert an expression to a Currency.

Dim MyDouble, MyCurr
MyDouble = 543.214588    ' MyDouble is a Double.
MyCurr = CCur(MyDouble * 2)    ' Convert result of MyDouble * 2
        ' (1086.429176) to a 
        ' Currency (1086.4292).