Formulario de Excel Avanzado para Cálculo de Cuota Flat en casas comerciales

En el crédito comercial el calculo de los intereses se efectúa con una tasa de interés simple llamada tasa FLAT, que da la sensación de ser un "crédito barato" así como mas transparente porque el cálculo del interés es sencillo; sin embargo, estos créditos suelen ser los más caros del mercado.

En caso el cliente compre el equipo tomando el crédito comercial tenemos:

monto a financiar = D

D = Precio de Lista - Cuota Inicial

La cuota inicial es un pago exigido por la casa comercial y que el cliente debe hacer en el momento que recibe el equipo. Este pago es parte del valor del equipo o precio de lista, por tanto, lo que se financia con es crédito comercial es la diferencia D y lo pagará en "n" cuotas FLAT más los intereses

Cuota FLAT = C

C = (D *(1+ iflat * n)) / n

En caso el adquiriente compre al contado el equipo, pagará un monto en la casa comercial que ofrezca el menor precio al contado, éste es menor al precio de lista:

(Para mayor visualización de la imagen, hacer click en la misma)

Precio al contado = (1-descuento%)*Precio de lista
En el ejemplo propuesto, se tienen diferentes casas comerciales, y se aplicará un formulario con el fin de calcular las cuotas que tendría que pagar un cliente que desea adquirir un producto determinado.
Esto se obtendrá mendiante:
Private Sub ComboBox1_Change()
Sheets("hoja1").Select
For x = 3 To 6
ComboBox1.AddItem (Cells(2, x))
Next
End Sub
Private Sub TextBox1_Change()

End Sub

Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Text
End Sub
Private Sub CommandButton2_Click()
For x = 3 To 6
If TextBox1.Text = Cells(2, x) Then
TextBox2.Text = Cells(3, x)
TextBox3.Text = Cells(3, x) * (1 - Cells(4, x))
TextBox4.Text = Cells(5, x) * 100
TextBox5.Text = Cells(6, x)
End If
Next
End Sub

Private Sub CommandButton3_Click()
Dim n As Integer
n = TextBox6.Text
If n >= 1 And n <= 36 Then
calcula_cuota_flat
Else
MsgBox "numero de cuotas es incorrecto"
End If

End Sub

Sub calcula_cuota_flat()
D = TextBox2.Text - TextBox5.Text
cuota_flat = (D * (1 + TextBox4.Text / 100 * TextBox6.Text) / TextBox6.Text)
TextBox7.Text = ("S/. " & cuota_flat)
End Sub

Formulario de Excel Avanzado para Cálculo de Cuota Flat en casas comerciales

 

Elaborado por: Luis Diaz