VBA/Excel/Access/Word/Data Type/Currency Format

Материал из VB Эксперт
Перейти к: навигация, поиск

Format money as $##,##0.00

   <source lang="vb">

Sub formatMoney()

   MsgBox "Pay is:   " & Format(12345.67, "$##,##0.00"), , "Total Pay"

End Sub

</source>
   
  


formatted proper currency format ("$###.##")

   <source lang="vb">

Sub loanPayment()

  Dim dblRate As Double
  Dim intTerm As Integer
  Dim dblPrincipal As Double
  Dim dblPayment As Double
  Dim strFormat As String
  dblRate = 0.075
  intTerm = 5
  dblPrincipal = 75000
  strFormat = "$###.##"
  dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal)
  msgBox "The monthly payment is: " & Format(dblPayment, strFormat)

End Sub

</source>
   
  


Format value as currency

   <source lang="vb">

Sub CCurDemo()

   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>