VBA/Excel/Access/Word/Data Type/Currency Format — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:33, 26 мая 2010
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>