function replace(string,text,by) {
var strLength = string.length, txtLength = text.length;
if ((strLength == 0) || (txtLength == 0)) return string;
var i = string.indexOf(text);
if ((!i) && (text != string.substring(0,txtLength))) return string;
if (i == -1) return string;
var newstr = string.substring(0,i) + by;
if (i+txtLength < strLength)
newstr += replace(string.substring(i+txtLength,strLength),text,by);
return newstr;
}
function roundit(amt)
{
var r = "";
var s = ""+amt;
for (var j=0;j < s.length;j++)
{
if (s.substring(j,j+1)==".")
{
r = r+s.substring(j,j+3);
break;
}
r = r + s.substring(j,j+1);
}
return r;
}
function arvutalaen()
{
var minuakenOptions = "menubar=yes,toolbar=no,location=no,scrollbars=yes,status=no,width=600,height=400"
var graafik = document;
var mgdata="Maksegraafik
Maksegraafik
";
if (document.kalkutt.maksetyyp[0].checked) { mt="Igakuine"; }
if (document.kalkutt.maksetyyp[1].checked) { mt="Kvartaalne"; }
if (document.kalkutt.maksetyyp[2].checked) { mt="Igaaaastane"; }
if (document.kalkutt.arvutus[0].checked) { arv="Annuiteet"; }
if (document.kalkutt.arvutus[1].checked) { arv="Fikseeritud"; }
var aastaid = parseInt(document.kalkutt.aasta.value);
var kuid = parseInt(document.kalkutt.kuu.value);
var aintress1 = document.kalkutt.aintress.value;
aintress1 = replace(aintress1,',','.')
var aintress = parseFloat(aintress1) / 100;
var summa = parseFloat(document.kalkutt.summa.value) + 0.00000001;
var perarv = 1;
if (mt=='Igakuine')
{
perarv = ((aastaid * 12) + kuid);
intress = Math.pow((1 + aintress),(1 / 12)) - 1;
}
if (mt=='Kvartaalne')
{
perarv = ((aastaid * 4) + Math.floor(kuid / 3));
intress = Math.pow((1 + aintress),(1 / 4)) - 1;
}
if (mt=='Igaaaastane')
{
perarv=aastaid;
intress=aintress;
}
var temp = (aintress * 100) + 0.0000001;
mgdata += "
Laenusumma:
"+roundit(summa)+"
Tagasimakse:
"+mt+"
Intress:
"+roundit(temp)+"%
Laenu tüüp:
"+arv+"
Laenu pikkus:
"+aastaid+" aastat "+kuid+" kuud
Makseid:
"+perarv+"
";
if (arv=='Annuiteet')
{
var temp=1;
var ajut = 0;
for(var i=1;i<(perarv+1);i++)
{
temp = (1 / (1 + intress) * temp);
ajut = ajut + temp;
}
makse = summa / ajut;
document.kalkutt.makse.value=roundit(makse);
if (document.kalkutt.graafjah.checked)
{
mgdata += "
Periood
Jääk
Põhisumma
Intress
Makse
";
temp = 1;
ajut = 0;
var maksetotal = 0;
var intresstotal = 0;
var pohitotal = 0;
var jaak = summa + 0.00000001;
var persumma = 0;
var perintress = 0;
for(var i=1;i<(perarv+1);i++)
{
perintress = intress * jaak;
persumma = makse - perintress;
maksetotal = maksetotal + makse;
pohitotal = pohitotal + persumma;
intresstotal = intresstotal + perintress;
mgdata += "
"+i+"
"+roundit(jaak)+"
"+roundit(persumma)+"
"+roundit(perintress)+"
"+roundit(makse)+"
";
jaak = jaak - persumma;
}
mgdata += "
Kokku:
"+roundit(pohitotal)+"
"+roundit(intresstotal)+"
"+roundit(maksetotal)+"
";
if (roundit(pohitotal)==roundit(summa)) {} else { mgdata += "
Arvutus võib sisaldada ümardusvigu!
"; }
mgdata +="Footer";
minuaken = open(graafik,"Maksegraafik",minuakenOptions);
minuaken.document.write(mgdata);
minuaken.document.close();
}
else {
// alert("ei tee graafikut");
}
}
if (arv=='Fikseeritud')
{
var perintress = 0;
var makse = 0;
var jaak = summa + 0.00000001;
var posumma = summa / perarv;
var posummatotal = 0;
var perintresstotal = 0;
var maksetotal = 0;
mgdata += "
