Kreditrechung ist keine Hexerei

Beachten: Schuldsumme =  Kredit + Nebengebuehren
                         ==> Nebengebuehren separat bezahlen!
          monatliche/quartalsweise Gebuehren?
          Sondertilgungen zum Ende der Zinsperiode vereinbaren!
          variabler Zinssatz?

Die hier vorgestellte Rechnung ist sehr einfach gehalten und nicht ganz exakt, da die letzte Rate geringer sein müßte.

Contents

clear; clc;

Daten setzen

Schulden = 120000;        % = Kredit + Nebengebuehren in EUR
ZinsSatz = 6.125/100;     % jaehrlicher Zinssatz in Prozent

MonateInPeriode = 3;      % vierteljaehrliche Zinsperiode
% MonateInPeriode = 1;      % monatliche Zinsperiode
KontoFuehrung = 13.71;    % Kontofuerung in EUR pro Zinsperiode

monatTilgung = 800;       % monatlich Tilgung in EUR      !!
Tilgung = MonateInPeriode*monatTilgung;   % Tilgung pro Zinsperiode in EUR

Ist meine monatliche Tilgung hoch genug, damit sich die Schuldsumme nicht vergroessert?

minTilgung = Schulden*ZinsSatz/12 + KontoFuehrung/MonateInPeriode;
while monatTilgung<minTilgung
    monatTilgung = input(['Geben Sie eine Tilgung groesser als die monatliche Mindestilgung von ',num2str(minTilgung),' EUR ein: ']);
end
Tilgung = MonateInPeriode*monatTilgung;   % Tilgung pro Zinsperiode in EUR

Wie lange muss ich zahlen?

Brute Force

Restschuld = Schulden;
t = 0;
while Restschuld>0
    Restschuld = Restschuld*(1+ZinsSatz*MonateInPeriode/12) - Tilgung + KontoFuehrung/MonateInPeriode;
    t = t+1;
    R(t) = Restschuld;
end

disp(['Kredit nach ',num2str(t*MonateInPeriode),' Monaten getilgt.    (',...
      num2str(-R(end)),' EUR zu viel bezahlt)'])

Kredit nach 288 Monaten getilgt.    (277.8226 EUR zu viel bezahlt)

Eine Auswertung

GesamtZahlungen = t*Tilgung;
disp(['Zur Schuldentilgung von ', num2str(Schulden),' EUR wurden insgesamt ',num2str(GesamtZahlungen),' EUR aufgewendet.'])
disp(['Monatsrate: ',num2str(monatTilgung), ' EUR    ', 'Zinssatz ',num2str(100*ZinsSatz), ' %'  ])

Zur Schuldentilgung von 120000 EUR wurden insgesamt 230400 EUR aufgewendet.
Monatsrate: 800 EUR    Zinssatz 6.125 %

und etwas Grafik

plot(MonateInPeriode*(0:length(R)),[Schulden R]);
title(['Kredit nach ',num2str(t*MonateInPeriode),' Monaten getilgt'])
xlabel('Monat')
ylabel('EUR')

Published with MATLAB® R2017a