VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cEmprestimo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public CapitalDivida As Double
Public NrPrestacoes As Integer
Public TaxaJuro As Double
Public Event EmprestimoPago()


Public Property Get Prestacao() As Double
    Prestacao = Abs(Pmt(TaxaJuro / 12, NrPrestacoes, CapitalDivida))
End Property


Public Sub PagarPrestacao()
    CapitalDivida = CapitalDivida - (Prestacao - CapitalDivida * TaxaJuro / 12)
    NrPrestacoes = NrPrestacoes - 1
    If NrPrestacoes = 0 Then RaiseEvent EmprestimoPago
End Sub


Public Sub Amortizar(ValorAmortizar As Double)
    CapitalDivida = CapitalDivida - ValorAmortizar
    If Round(CapitalDivida) = 0 Then RaiseEvent EmprestimoPago
End Sub