by Julian Tanushi (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2nd December 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
calculate the amount of money you borrow from a bank
VBcoders
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
