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

 	// und keine Endfälligkeit, werden 100 Jahre im voraus gesetzt.
 	// Das ist die maximale Laufzeit.
 	if (TpPars->dbis == 0L)
+	{
+	   QDate dt;
+	   date_int(&day, &mon, &year, TpPars->ragab);
+	   dt.setYMD(year, mon, day);
-	   tage = (99L * 365L) + (99L / 4L);	// 99 Jahre ist maximale Laufzeit
+	   dt = dt.addYears(99);		// 99 Jahre ist maximale Laufzeit
-	   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
 	         tg = tageber (Zi.Datum) - tageber (TpPars->ragab);
 	      aZins = kap * (double)tg * TpPars->zssoll / divisor;
 	      kap += runden (aZins, rund_fakt);
               LastAend = Zi.Datum;
+	      DTable.rate = Zi.Zins;
 	      DekZiAend (fdZins, &zoff, sbuf.st_size, &Zi);
 	      kap = DTable.kapital;
-	      DTable.rate = Zi.Zins;
+	   }
 	   else if ((rat_dat[r_ind] <= ab_dat[a_ind] && r_ind < max_rat) || a_ind >= max_abs)
 #else
 	   if ((rat_dat[r_ind] <= ab_dat[a_ind] && r_ind < max_rat) || a_ind >= max_abs)
 #endif
 	DTable.rkapi = TpPars->lrate;
 	if (!TpPars->effekt)
 	   write (fd, &DTable, sizeof (DTABLE));
 #ifdef _ZINSAENDERUNG
-	if (TpPars->gewicht > 0.0)
+//	if (TpPars->gewicht > 0.0)
-	   TpPars->zssoll = TpPars->gewicht;
+//	   TpPars->zssoll = TpPars->gewicht;
 	zaf.close();
 #endif
+	tmpFile.flush();
 	if (!TpPars->effekt)
+	{
-	   tmpFile.flush();
 	   lseek (fd, 0L, 0);
 	   write (fd, TpPars, sizeof (TPPARS));
+	}
+	else
+	{
+	   // Zinsen nach einem Jahr ermitteln
+	   tmpFile.flush();
+	   lseek (fd, (long)sizeof(TPPARS), 0);
+	   zins = 0.0;
+	   while (read (fd, &DTable, sizeof(DTABLE)) >= sizeof(DTABLE))
+	   {
+	      if (DTable.kz == 'R' && DTable.datum >= effend)
+		 break;
+	      if (DTable.kz == 'R')
+		 zins += DTable.zinsen;
+	   }
+	   TpPars->effformel = 100.0 - (100.0 / TpPars->ezins * zins);
+	}
 	tmpFile.close ();
 	return 0;
+}

Subversion Repositories public

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