Kalkulime Matematikore
Private Sub Text1_Change()
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