• Home
 · 
• Math/Dates
 · 
• calculate the amount of money you borrow from a bank

calculate the amount of money you borrow from a bank

calculate the amount of money you borrow from a bank

Rate calculate the amount of money you borrow from a bank

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Command1_Click()

End Sub

Private Sub cmdCalculate_Click()
Dim cPrincipal As Currency
Dim fIntRate As Single
Dim nTerm As Integer, cPayment As Currency

cPrincipal = Val(txtPrincipal.Text)

fIntRate = Val(txtIntRate.Text) / 100

fIntRate = fIntRate / 12

nTerm = Val(txtTerm.Text) * 12

cPayment = cPrincipal * (fIntRate / (1 - (1 + fIntRate) ^ -nTerm))

txtPayment.Text = Format(cPayment, "Fixed")

End Sub

Private Sub cmdExit_Click()
Dim sMsg As String
sMsg = "Jeni i sigurte qe doni te dilni?"
If MsgBox(sMsg, vbYesNo) = vbYes Then
End
End If
End Sub