Simulador de hipotecas (Programa de Visual Basic)
“Préstamo” es un programa viejo, Que he hecho en VB5. Esto le permite listado completo de dicho préstamo de una hipoteca. Tanto anualidades lineal préstamos se puede calcular.
Pantalla
El programa consta de un pequeño formulario, cuando leningsom, el plazo del préstamo y la tasa de interés puede llenar, Si inserta la fecha del préstamo. En ese caso, los datos de la encuesta también indicó.
Descripción general
Si “Calcular” haga clic en, Obtener una visión completa de todas las cuotas del préstamo de, incluidas las cuotas mensuales, interés y la deuda por plazo residual.
Exportación a Excel
La lista también puede exportar a Excel. Para un ejemplo de una lista en Excel: overzicht.xls préstamo
Cálculos de Código
El cálculo manual de annuïtenleningen es a menudo un karwijtje laborioso, mientras que la codificación del cálculo incluye sólo unas pocas docenas de líneas de código. Este es el código de VB donde se realiza el cálculo real.
GfvIntrestAnnuiteit la Función Pública(Opcional evvKapitaal ByVal As Variant, _ Opcional evvAnnuiteit ByVal As Variant, _ ByVal opcional evvPerioden As Variant, _ EvvPercentage opcional ByVal As Variant) As Variant
'-------------------------------------------
"Fórmula : K = Ann / a(n,p)
'pre : todos los invoerparam opcional, excepto en lo desconocido, se conocen;
' de gfvGetValueIntrestTables functie '' debe ser capaz de ser llamado;
'post: La función obtiene el valor de lo desconocido.
'-------------------------------------------
Si IsMissing(evvKapitaal) A continuación, 'K = Ann / a(n,p)
gfvIntrestAnnuiteit = CDec(evvAnnuiteit / gfvGetValueIntrestTables(evvPercentage, evvPerioden, True, True))
ElseIf IsMissing(evvAnnuiteit) A continuacióun, 'Ann = K / a(n,p)
gfvIntrestAnnuiteit evvKapitaalec(evvKapitaal / gfvGetValueIntrestTables(evvPercentage, evvPerioden,Verdaderoe, True))
End If End Function Private Function gfvGetValueIntrestTables(EvvPercentage ByVal As Variant, _ ByVal evvPerioden As Variant, _ Opcional EVVA ByVal As Boolean = false, _ Opcional evvRecursie ByVal As Boolean = false) As Variant
'--------------------------Como variante'------------------------------------------i"Para;post: La función obtiene el valor de S('Post,p), con(n,p) of a(n,p).
"Posible error : Err.Number = 6 -> desbordamiento'-------------------------------------------
Dim lvvVar As Variant lvvVar = CDec((1 + (evvPercentage / 100)) ^ EvvPerioden) '= S(n,p)
Si EVVA Luego lvvVar = 1 / lvvVar '= A(n,p)
Si No Y evvRecursie (evvPerioden = 0) A continuación, 'el límite de recursión
(lvvVar + gfvGetValueIntrestTables(evvPercentage, evvPerioden - 1, EVVA, evvRecursiegfvGetValueIntrestTables,evvPercentageecevvPeriodenlse gfvGetValueIntrestTables Entonces = CDen(pvvVlvvVar End If End Function
Descargar
- Préstamo (programa): lening.exe
- VB Código de Préstamo: lening.zip
Licencia
El código está en el dominio público.
RSS
LinkedIn
Gorjeo
MUCHAS GRACIAS POR TODO SON DE MUCHA AYUDA