Calculateur d'hypothèque (Programme Visual Basic)
“Prêt” est un vieux programme, Je n'ai jamais fait dans VB5. Cela vous permet annonces remplies d'un tel prêt hypothécaire. Les deux rentes linéaire prêts peuvent être calculés.
Écran
Le programme consiste en une petite forme, lorsque vous leningsom, la durée du prêt et le taux d'intérêt peuvent remplir, Si vous insérez la date du prêt. Dans ce cas, les données du sondage ont également indiqué.
Présentation
Si vous “Calculer” cliquez sur, Obtenez un aperçu complet de tous les versements du prêt, y compris les frais mensuels, d'intérêt et de la dette par échéance résiduelle.
Excel à l'exportation
La liste peut également exporter vers Excel. Pour un exemple d'une liste dans Excel: overzicht.xls prêt
Code de calculs
Le calcul manuel des annuïtenleningen est souvent laborieuse karwijtje, tandis que le codage du calcul ne comprend que quelques dizaines de lignes de code. Ceci est le code VB où le calcul proprement dit est réalisé.
GfvIntrestAnnuiteit Fonction Publique(En option ByVal evvKapitaal As Variant, _ EvvAnnuiteit option ByVal As Variant, _ En option ByVal evvPerioden As Variant, _ EvvPercentage option ByVal As Variant) As Variant
'-------------------------------------------
'De formule : K = Ann / a(n,p)
'pre : tous les invoerparam option, l'exception de l'inconnu, sont connus;
' de functie 'gfvGetValueIntrestTables' doivent pouvoir être appelée;
'post: La fonction récupère la valeur de l'inconnu.
'-------------------------------------------
Si IsMissing(evvKapitaal) Puis 'K = Ann / a(n,p)
gfvIntrestAnnuiteit = CDec(evvAnnuiteit / gfvGetValueIntrestTables(evvPercentage, evvPerioden, True, True))
ElseIf IsMissing(evvAnnuiteit) Puis 'Ann = K / a(n,p)
ungfvIngfvIntrestAnnuiteit = CDecapitaaevvKapitaalalueIntrestTables(evvPercentage, evvPerioden, True, True)Vrai End If End Function Private Function gfvGetValueIntrestTables(EvvPercentage ByVal As Variant, _ ByVal evvPerioden As Variant, _ En option ByVal EVVA As Boolean = False, _ En option ByVal evvRecursie As Boolean = False) As Variant
'-------------------------------------------
'pre : Le iAs Variant'------------------------------------------Poura valeur de S(n,p), Une(n,p), avec(n,p«Post).
"Erreur possibles : Err.Number = 6 -> débordement-
Dim lvvVar As Variant lvvVar = CDec((1 + (evvPercentage / 100)) ^ EvvPerioden) '= S(n,p)
Si EVVA Puis lvvVar = 1 / lvvVar '= A(n,p)
Si evvRecursie Et Non (evvPerioden = 0) Ensuite, «pour limiter la récursion
(lvvVar + gfvGetValueIntrestTables(evvPercentage, evvPerioden - 1, EVVA, evvRecursie)) '= s(n,p) of a(n,p)
'= S evvRecursie = False ggfvGetValueIntrestTablesAevvPercentageunevvPeriodend If End Function
pn
Télécharger
- Prêt (programme): lening.exe
- Prêt de code VB: lening.zip
Licence
Code est dans le domaine public.
RSS
LinkedIn
Gazouillement
MUCHAS GRACIAS POR TODO SON DE MUCHA AYUDA