VBA/Excel/Access/Word/Data Type Functions/CCur

CCur() converts value to Currency

   <source lang="vb">

Sub currencyDemo()

   Debug.Print CCur(10.3245567)

End Sub

</source>
   
  

Use CCur to convert value to currecy

   <source lang="vb">

Sub CalcPay()

   Dim hours
   Dim hourlyPay
   Dim payPerWeek
   hours = 40
   hourlyPay = 20
   payPerWeek = CCur(hours * hourlyPay)
   MsgBox "Pay is:   " & Format(payPerWeek, "$##,##0.00"), , "Total Pay"

End Sub

</source>