Hypothekenrechner (Visual Basic-Programm)
“Loan” ist ein altes Programm, Die ich je in VB5 gemacht. Dies ermöglicht Ihnen eine Übersicht, wie ein Hypothekendarlehen. Sowohl linear als auch Darlehen Renten berechnet werden kann.
Bildschirm
Das Programm besteht aus einer kleinen Form, Wenn Sie leningsom, die Laufzeit des Darlehens und der Zinssatz füllen kann, wenn Sie das Datum des Darlehens. In diesem Fall wird die Erhebung von Daten auch darauf hingewiesen,.
Überblick
Wenn Sie “Berechnen” Klicken Sie auf, Holen Sie sich einen kompletten Überblick über sämtliche Tranchen des Darlehens, einschließlich der monatlichen Gebühren, Zinsen und Schulden nach Restlaufzeit.
Excel-Export
Die Liste kann auch Export nach Excel. Ein Beispiel für eine Liste in Excel: Darlehen overzicht.xls
Code Berechnungen
Die manuelle Berechnung der annuïtenleningen ist oft mühsam karwijtje, während die Kodierung der Berechnung berücksichtigt nur ein paar Dutzend Zeilen Code. Dies ist der VB-Code, wo die eigentliche Berechnung erfolgt.
Public Function gfvIntrestAnnuiteit(Optional ByVal evvKapitaal As Variant, _ Optional ByVal evvAnnuiteit As Variant, _ Optional ByVal evvPerioden As Variant, _ Optional ByVal evvPercentage As Variant) As Variant
'-------------------------------------------
"Formula : K = Ann / a(n,p)
'pre : alle optionalen invoerparam, außer der unbekannten, bekannt sind;
' de functie 'gfvGetValueIntrestTables' muss aufgerufen werden;
'post: Die Funktion wird der Wert des unbekannten.
'-------------------------------------------
Wenn IsMissing(evvKapitaal) Then 'K = Ann / a(n,p)
gfvIntrestAnnuiteit = CDec(evvAnnuiteit / gfvGetValueIntrestTables(evvPercentage, evvPerioden, True, True))
ElseIf IsMissing(evvAnnuiteit) Then 'Ann = K / a(n,p)
gfvIngfvIatrestAnnuiteit = CDecapitaaevvKapitaalalueIntrestTables(evvPercentage, evvPerioden, True, True)Wahr End If End Function Private Function gfvGetValueIntrestTables(ByVal evvPercentage As Variant, _ ByVal evvPerioden As Variant, _ Optional ByVal EVVA As Boolean = False, _ Optional ByVal evvRecursie As Boolean = False) As Variant
'-------------------------------------------
'pre : Die invoerparamAs Variant'------------------------------------------quot;Fürp), Ein(n,p), mit(n,p) of a(n'Post;Mögliche Fehler : err.number = 6 -> Überlauf-
Dim lvvVar As Variant lvvVar = CDec((1 + (evvPercentage / 100)) ^ EvvPerioden) '= S(n,p)
Wenn EVVA Dann lvvVar = 1 / lvvVar '= A(n,p)
Wenn evvRecursie And Not (evvPerioden = 0) Dann "beschränken Sie Rekursion
(lvvVar + gfvGetValueIntrestTables(evvPercentage, evvPerioden - 1, EVVA, evvRecursie)) '= s(n,p) of a(n'= SlseIf evvRecursie = False Then ggfvGetValueIntrestTables=evvPercentage)
evvPeriodenEnd Function
pn
Herunterladen
- Loan (Programm): lening.exe
- VB Code Loan: lening.zip
Lizenz
Code ist in der Public Domain.
RSS
LinkedIn
Twitter
MUCHAS GRACIAS POR TODO SON DE MUCHA AYUDA