Люди а посмотрите вот эту прогу у меня почему-то выходит 0
| Код |
Private Sub cmdCalculate_Click()
Dim cPrincipal As Currency
Dim fIntRate As Single, nTerm As Integer, cPayment As Currency
' Сохраним в переменной cPrincipal величину ссуды
cPrincipal = Val(txtPrincipal.Text)
' Преобразуем величину процентной ставки в её
' десятичный эквивалент. Например, число
' 12,75 должно быть преобразовано в 0,1275
fIntRate = Val(txtIntRate.Text) / 100
' Преобразуем годовую процентную ставку в месячную,
' разделив её на 12 (количество месяцев в году)
fIntRate = fIntRate / 12
' Преобразуем срок погашения ссуды, заданный в годах,
' в месяцы, умножив его на 12 (количество месяцев в году)
nTerm = Val(txtTerm.Text) * 12
' Вычислим величину месячного платежа и отобразим его
' на экране.
' С помощью функции Format() мы преобразуем вычесленное
' значение в текстовый вид и заодно улучшим читаемость
' цифр на экране.
cPayment = cPayment * (fIntRate / (1 - (1 + fIntRate) ^ -nTerm))
txtPayment.Text = Format(cPayment, "Fixed")
End Sub
|
|
)