WebSVN – public – Diff – /tilgungsplan/trunk/src/tilgrech.cpp

 #include <klocale.h>
 #include <kmessagebox.h>
 #include <qfile.h>
 #include <qstring.h>
 #include <qdir.h>
+#include <qdatetime.h>
 #include <stdio.h>
 #include <math.h>
 #include <string.h>
 #include <sys/stat.h>
-#include <iostream.h>
 #include "tilgplan.h"
 #include "helper.h"
 int MonLeiste[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
 		 /*  Jan Feb Mär Apr Mai Jun Jul Aug Sep Okt Nov Dez */;
-// Klassendefinition: DLG_ZIAEND ------------------------------------------
 // Wenn dieses Modul mit dem Flag "_ZINSAENDERUNG" compiliert wurde, kann
 // eine Zinssatzänderung definiert werden. Dazu ist ein eigenes Dialog-
-// fenster notwendig. Die Klasse dafür ist hier definiert.
+// fenster notwendig.
-// Das Dialogfenster kann nur dann aufgerufen werden, wenn das Mutter-
-// modul den Zeiger auf sich selbst übergeben hat (SetParent).
 // Funktionen -------------------------------------------------------------
 // Hauptprogramm
-// Druch aufrufen dieser Routine wird ein Tilgungsplan auf Grund der
+// Durch aufrufen dieser Routine wird ein Tilgungsplan auf Grund der
 // übergebenen Parameter errechnet und in einer Datei abgelegt.
 // Diese kann dann weiter bearbeitet werden.
+//
+// Die übergebenen Parameter enthalten auch Steuerkennzeichen. So kann auch
+// der Effektivzinssatz berechnet werden. Dazu muss der Kredit zunächst
+// normal durchgerechnet werden. Anschliessen wird mit der errechneten Rate,
+// jedoch ohne Spesen, Gebühren etc. der Plan für ein Jahr noch einmal
+// gerechnet. Die so ermittelten Zinsen ergeben den Effektivzinssatz.
+//
 int TRech::tilgpl ()
+{
 int day, mon, year, akt_mon, akt_year, i, j;
 	// Auszahlungsdatum auf Gültigkeit überprüfen
 	if (TpPars->ragab > TpPars->dvon)
 	   return 3;			// Auszahlungsdatum > 1. Einschränkung
+	if (TpPars->effekt && TpPars->rate <= 0.0)
+	   return 29;			// Keine Rate, kein Effektivzins!
 	// Abschlußrhythmus überprüfen
+	if (TpPars->effekt && TpPars->abschlry != 12 && TpPars->abschlry != 52)
+	   return 26;			// Für Effektivzinssatzberechnung nur jährlicher Abschluss erlaubt
 	if (TpPars->abschlry != 1 && TpPars->abschlry != 3 && TpPars->abschlry != 6 &&
 	    TpPars->abschlry != 12 && TpPars->abschlry != 41 && TpPars->abschlry != 43 &&
 	    TpPars->abschlry != 46 && TpPars->abschlry != 47 && TpPars->abschlry != 48 &&
 	    TpPars->abschlry != 52)
 	   return 11;			// ungültiger Abschlußrythmus
 	else if (TpPars->verzart == 4)
 	   verzinsung = 3;		// Quasiantizipativ
 	else
 	   return 12;			// ungültige Verzinsungsart
+	if (TpPars->effekt && (verzinsung == 1 || verzinsung == 3))
+	   return 28;			// Effektivzinss. nur bei dekursiv möglich
 	// Verzinsungsart mit Abschlußrhythmus gegenprüfen
 	if (TpPars->verzart == 1 && TpPars->abschlry != 43 &&
 		TpPars->abschlry != 46 && TpPars->abschlry != 52)
 	   return 9;			// Verzinsung in Bezug auf Abschlußrhythmus ungültig
 #endif
 int TRech::DekursivTable ()
+{
 long tage;
-int vday, day, mon, year, akt_day, akt_mon;
+int vday, day, mon, year, akt_day, akt_mon, iday, imon, iyear;
 int at, am, aj;
 BOOL abschluss, r_yet;
 long lab;
+QDate dat1, dat2;
 	// Wurde eine fixe Rate vorgegeben und ein Enfälligkeitsdatum
 	// angegeben, muß die letzte Einschränkung gleich dem
 	// Endfälligkeitsdatum sein.
 	// und keine Endfälligkeit, werden 100 Jahre im voraus gesetzt.
 	// Das ist die maximale Laufzeit.
 	if (TpPars->dbis == 0L)
+	{
+	   QDate dt;
-	   tage = (99L * 365L) + (99L / 4L);	// 99 Jahre ist maximale Laufzeit
+	   date_int(&day, &mon, &year, TpPars->ragab);
+	   dt.setYMD(year, mon, day);
+	   dt = dt.addYears(99);
-	   TpPars->dbis = DayToDate (tage + DateToDay (TpPars->ragab));
+	   TpPars->dbis = dt.year() * 10000L + dt.month() * 100L + dt.day();
+	}
 	// Wenn auf Ultimo gerechnet wird, muß der Tag der letzten
 	// Einschränkung auf den letzten des Monats gesetzt werden.
 	// Einzige Ausnahme: Verzinsungsart 7. Hier muß der Tag auf den
+	}
 	// überprüfen der Laufzeit auf Grund der eingegebenen Daten
 	if (TpPars->endfaell > 0L)
+	{
+	   QDate dt1, dt2;
+	   date_int(&day, &mon, &year, TpPars->endfaell);
+	   dt1.setYMD(year, mon, day);
+	   date_int(&day, &mon, &year, TpPars->ragab);
+	   dt2.setYMD(year, mon, day);
+	   tage = dt2.daysTo(dt1);
-	   tage = DateToDay (TpPars->endfaell) - DateToDay (TpPars->ragab);
+//	   tage = DateToDay (TpPars->endfaell) - DateToDay (TpPars->ragab);
+	}
 	else
+	{
+	   QDate dt1, dt2;
+	   date_int(&day, &mon, &year, TpPars->dbis);
+	   dt1.setYMD(year, mon, day);
+	   date_int(&day, &mon, &year, TpPars->ragab);
+	   dt2.setYMD(year, mon, day);
+	   tage = dt2.daysTo(dt1);
-	   tage = DateToDay (TpPars->dbis) - DateToDay (TpPars->ragab);
+//	   tage = DateToDay (TpPars->dbis) - DateToDay (TpPars->ragab);
+	}
 	if (tage > 36524L)
 	   return 14;			// Laufzeit über 100 Jahre
 	if (TpPars->abschl == 0L)
+	   {
 	      akt_mon = 0;
 	      year++;
+	   }
+	   date_int(&iday, &imon, &iyear, r_dat);
+	   dat1.setYMD(iyear, imon, iday);
+	   date_int(&iday, &imon, &iyear, TpPars->ragab);
+	   dat2.setYMD(iyear, imon, iday);
+	   pos = dat2.daysTo(dat1);
-	   pos = DateToDay (r_dat) - DateToDay (TpPars->ragab);
+//	   pos = DateToDay (r_dat) - DateToDay (TpPars->ragab), r_dat, TpPars->ragab);
+	}
-	if (r_ind >= 1200 || a_ind >= 1200)
+	if (TpPars->effekt && (r_ind >= 1200 || a_ind >= 1200))
 	   return 20;			// Rechenfehler
 	if (lab != a_dat)
+	{
 	   ab_dat[a_ind] = TpPars->dbis;
+{
 QString hdir = QDir::homeDirPath ();
 QFile tmpFile, zaf;
 int fd, index, i;
 int real_rat, Abzug;
-long tg;
+long tg, effend;
 double zins, tilg, zi1, zi2, kzi;
 long offset;
 BOOL stop;
 #ifdef _ZINSAENDERUNG
    int fdZins;
 	/* Planerstellung */
 	hdir.append("/.date_tbl.dat");
 	tmpFile.setName(hdir);
-	if (tmpFile.open(IO_ReadWrite | IO_Truncate) == FALSE)
+	if (!TpPars->effekt)
+	{
+	   if (tmpFile.open(IO_ReadWrite | IO_Truncate) == FALSE)
+	   {
-	   KMessageBox::error(0, QString("Could not open file for reading: %1").arg(tmpFile.errorString()));
+	      KMessageBox::error(0, QString("Could not open file for reading: %1").arg(tmpFile.errorString()));
+	      return 1;
+	   }
+	}
+	else
+	{
+	   if (tmpFile.open(IO_ReadOnly) == FALSE)
+	   {
+	      KMessageBox::error(0, QString("Could not open file for reading: %1").arg(tmpFile.errorString()));
-	   return 1;
+	      return 1;
+	   }
+	}
 	fd = tmpFile.handle();
 #ifdef _ZINSAENDERUNG
 	// Wenn eine Zinssatzänderung gewünscht wurde, muß die Änderungs-
 	offset = 0L;
 	index = max_abs + max_rat;
 	/* Ausgangsdaten schreiben */
+	if (!TpPars->effekt)
+	{
-	write (fd, TpPars, sizeof (TPPARS));
+	   write (fd, TpPars, sizeof (TPPARS));
-	offset += (long)sizeof (TPPARS);
+	   offset += (long)sizeof (TPPARS);
+	}
 	/* Initialisierung der Schleife */
 	a_ind = r_ind = 0;
 	kap = TpPars->rahmen;
 	TpPars->abschl = ab_dat[0];
 	stop = FALSE;			// TRUE wenn Laufzeitende bei Ratenvorgabe
 	real_rat = max_rat;
         Abzug = 0;			// wird nur bei Ratenvorgabe verwendet
+	if (TpPars->effekt)
+	   effend = TpPars->dvon + 10000L;	// 1 Jahr für Effektivzinsberechnung
+	else
+	   effend = 0L;
 	/* Schleife zur Berechnung der Gesamtbelastung (Dekursiv) */
 	for (i = 0; i < index; i++)
+	{
 #ifdef _ZINSAENDERUNG
 	         real_rat--;
 	      continue;
+	   }
+	   if (!TpPars->effekt)
+	   {
-	   write (fd, &DTable, sizeof (DTABLE));
+	      write (fd, &DTable, sizeof (DTABLE));
-	   offset += (long)sizeof (DTABLE);
+	      offset += (long)sizeof (DTABLE);
+	   }
+	   else if (DTable.datum > effend)
+	      break;
 	} /* end for */
 	if (TpPars->fixrate == TRUE)
 	   TpPars->dbis = rat_dat[r_ind-1];
+	}
 	else
 	   TpPars->anzuschuss = TpPars->antotal = 0.0;
 	DTable.rkapi = TpPars->lrate;
+	if (!TpPars->effekt)
-	write (fd, &DTable, sizeof (DTABLE));
+	   write (fd, &DTable, sizeof (DTABLE));
 #ifdef _ZINSAENDERUNG
 	if (TpPars->gewicht > 0.0)
 	   TpPars->zssoll = TpPars->gewicht;
 	zaf.close();
 #endif
+	if (!TpPars->effekt)
+	{
-	tmpFile.flush();
+	   tmpFile.flush();
-	lseek (fd, 0L, 0);
+	   lseek (fd, 0L, 0);
-	write (fd, TpPars, sizeof (TPPARS));
+	   write (fd, TpPars, sizeof (TPPARS));
+	}
 	tmpFile.close ();
 	return 0;
+}
 #ifdef _ZINSAENDERUNG

Subversion Repositories public

(root)/tilgungsplan/trunk/src/tilgrech.cpp – Rev 53 → 60