Data Type Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type Functions
  4. Use CCur to convert value to currecy
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