var zinssatz=Number(4.50);

function redirect(x){

var gruppen=document.KALK.Vertrag.options.length
var gruppe=new Array(gruppen)

for (i=0;i<gruppen;i++)
gruppe[i]=new Array()

gruppe[0][0]=new Option ("Tage wählen" ,"1")
gruppe[0][1]=new Option ("30 Tage" ,"30")
gruppe[0][2]=new Option ("60 Tage" ,"60")
gruppe[0][3]=new Option ("90 Tage" ,"90")

gruppe[1][0]=new Option ("Monate wählen","1")
gruppe[1][1]=new Option ("3 Monate","3")
gruppe[1][2]=new Option ("4 Monate","4")
gruppe[1][3]=new Option ("5 Monate","5")
gruppe[1][4]=new Option ("6 Monate","6")
gruppe[1][5]=new Option ("7 Monate","7")
gruppe[1][6]=new Option ("8 Monate","8")
gruppe[1][7]=new Option ("9 Monate","9")
gruppe[1][8]=new Option ("10 Monate","10")
gruppe[1][9]=new Option ("11 Monate","11")
gruppe[1][10]=new Option ("12 Monate","12")
gruppe[1][11]=new Option ("24 Monate","24")

for (m=document.KALK.Laufzeit.options.length-1; m >0;m--)
document.KALK.Laufzeit.options[m]=null;
for (i=0;i<gruppe[x].length;i++)
	{
	document.KALK.Laufzeit.options[i]=new Option (gruppe[x][i].text,gruppe[x][i].value)
	}
document.KALK.Laufzeit.options[0].selected=true;
}


function vpkalk(){

tage=lese_Laufzeit();
if (tage > 29)
{
zahlungsziel();
}
else
{
teilzahlung();
}
}

function zahlungsziel(){
if (document.KALK.Eingabewert.value < 500)
   {alert ("VarioPay ist ab einem Mindestbetrag von 500 EUR möglich...");return false;}

tage=lese_Laufzeit();

var kapital=parseFloat(document.KALK.Eingabewert.value);
var ergebnis=parseFloat(kapital+(kapital*zinssatz*tage/36000));
document.KALK.Ausgabewert.value=ergebnis;
rate=NachKomma2();

if (tage ==30){var effektivzins=8.84;};
if (tage ==60){var effektivzins=8.81;};
if (tage ==90){var effektivzins=8.77;};

document.KALK.Anzahlraten.value=1;
document.KALK.Ausgabelaufzeit.value=tage+' Tage';
document.KALK.Effektiv.value=effektivzins+' % ';
document.KALK.Ausgabewert.value=rate+' '+AWAEHRUNG;
document.KALK.ratenbezeichner.value='1 Rate á';
}



function teilzahlung(){
if (document.KALK.Eingabewert.value < 500)
   {alert ("VarioPay ist ab einem Mindestbetrag von 500 EUR möglich...");return false;}

tage=lese_Laufzeit();
var kapital=parseFloat(document.KALK.Eingabewert.value);
var zinstage=tage*30;
var P=Math.pow(1+(zinssatz/100),(1/12))-1;
var Q=eval(1+P);
var ratenzaehler=Math.pow(Q,(tage-1));
var ratenzaehler=kapital*ratenzaehler;;
var ratennenner=Math.pow(Q,tage)-1;
var rate=eval(ratenzaehler/ratennenner)*(Q-1);


EFFEKTIVZINS=effektivzins(zinssatz,tage,rate,kapital);

document.KALK.Ausgabewert.value=parseFloat(rate);
rate=NachKomma2();
document.KALK.Anzahlraten.value=tage;
document.KALK.Ausgabelaufzeit.value=zinstage+' Tage';
document.KALK.Effektiv.value=EFFEKTIVZINS+' % ';
document.KALK.Ausgabewert.value=rate+' '+AWAEHRUNG;
document.KALK.ratenbezeichner.value=tage+' Raten á';
}


function effektivzins(zinssatz,tage,rate,kapital){

var VGLBETRAG=Korrektur(100-(rate*100/kapital),5);

for (z=0;z<100;z++)
{
SUMMEBARWERT=summebarwerte(zinssatz,tage,rate,kapital);

document.KALK.Effektiv.value=VGLBETRAG-SUMMEBARWERT;
TOLERANZ=document.KALK.Effektiv.value.indexOf("0.000");
if (TOLERANZ > -1)
   {
   z=101;
   EFFEKTIVZINS=zinssatz;
   }
else
   {
	EFFEKTIVZINS='nicht verfügbar';
	zinssatz=(zinssatz*100)+1.00;
	zinssatz=Runden(zinssatz/100,2);
	}
}
return EFFEKTIVZINS;
}


function summebarwerte(zinssatz,tage,rate,kapital){

var SUMMEBARWERT=0;
for (i=1;i<tage;i++)
    {
	var BARWERTNENNER=Math.pow(1+(zinssatz/100),(i/12));
	var BARWERTZAEHLER=100*(rate/kapital);
	var BARWERT=eval(BARWERTZAEHLER/BARWERTNENNER);
	SUMMEBARWERT=Korrektur(SUMMEBARWERT+BARWERT,5);
	}
return SUMMEBARWERT;
}



function checkpreis(x){

eingabecheckn(x,'0123456789,.');
document.KALK.Ausgabewert.value=(document.KALK.elements[x].value).replace(/,/,".");
document.KALK.elements[x].value=NachKomma2();
      
document.KALK.Ausgabewert.value=document.KALK.elements[x-2].value * document.KALK.elements[x].value;
Ausgabewert=NachKomma2();
document.KALK.elements[x+1].value=Ausgabewert;
document.KALK.Ausgabewert.value='';

document.KALK.Ausgabewert.value=parseFloat(document.KALK.elements[37].value)+parseFloat(document.KALK.elements[41].value)+parseFloat(document.KALK.elements[45].value);
Ausgabewert=NachKomma2();
document.KALK.Eingabewert.value=Ausgabewert;

document.KALK.Ausgabewert.value=parseFloat (Ausgabewert-(Ausgabewert * 0.015));
Ausgabewert=NachKomma2();
document.KALK.Auszahlung.value=Ausgabewert;

document.KALK.Ausgabewert.value='';

}



function lese_Laufzeit()
{
for(i=0;i<document.KALK.Laufzeit.length;++i)
	{
	 if (document.KALK.Laufzeit.options[i].selected == true)
	 var tage=(document.KALK.Laufzeit.options[i].value)
	};
return tage;
}

function vorfinanzierung()
{
	eingabecheckn(58,'0123456789,.');
	document.KALK.Ausgabewert.value=(document.KALK.wlvorfinanzaw.value).replace(/,/,".");
	ergebnis=NachKomma2();
	document.KALK.wlvorfinanzaw.value=ergebnis;
	document.KALK.Ausgabewert.value='0.00 €';


if (document.KALK.wlvorfinanz.checked==true && parseInt(document.KALK.wlvorfinanzaw.value) < 500)
   {
   alert ("Es wurde noch kein gültiger Betrag zur Vorfinanzierung angegeben.\nBitte beachten Sie, dass zur Vorfinanzierung ein Mindestbetrag von 500 € erforderlich ist.");
   document.KALK.wlvorfinanz.checked=false;
   document.KALK.elements[58].style.borderColor = "red";
   document.KALK.elements[58].style.backgroundColor = "yellow";
   document.KALK.elements[58].focus();
   document.KALK.elements[58].select();
   return;	
   }

if (document.KALK.wlvorfinanz.checked==true && (document.KALK.wlvorfinanzlz.selectedIndex < 1))
   {
   alert ("Sie haben noch keine gültige Laufzeit zur Vorfinanzierung angegeben !");
   document.KALK.wlvorfinanz.checked=false;
   return;	
   }

}

function uebergabe_privat()
{
if (document.KALK.wlstrassegf.value=='')
   document.KALK.wlstrassegf.value=document.KALK.wlstrasse.value;
if (document.KALK.wlplzgf.value=='')
   document.KALK.wlplzgf.value=document.KALK.wlplz.value;
if (document.KALK.wlortgf.value=='')
   document.KALK.wlortgf.value=document.KALK.wlort.value;
if (document.KALK.wlktoinhaber.value=='')
   document.KALK.wlktoinhaber.value=document.KALK.wlfirma.value;
if (document.KALK.wllandgf.value != document.KALK.wlland.value)
   document.KALK.wllandgf.value=document.KALK.wlland.value;
}