Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Payment Function

Sub loanPayment()    Dim dblRate As Double    Dim intTerm As Integer    Dim dblPrincipal As Double    Dim dblPayment As Double    dblRate = 0.075    intTerm = 5    dblPrincipal = 7000    dblPayment = Pmt(dblRate / 12, intTerm * 12, -dblPrincipal)    msgBox "The monthly payment is: " & dblPayment End Sub