Denna funktion kan beräkna effektiv ränta samt ränta och amortering i kronor per år för olika typer av lån (raka lån, annuitetslån och serielån). Se dokumentationen under datamodell för mer information om indata.

Om effektiv ränta ska beräknas för lån med löptid över tio år eller om mer än tio år ska presenteras i resultatet så måste funktionen BeraeknaLaanEx användas istället.

Exempelkod i c#, ett rakt låns effektiva ränta och hela amorteringsplanen för kommande år

bk.BeraeknaLaan laanber = new bk.BeraeknaLaan(); 
bk.clsLaanRakt raktlaan = new bk.clsLaanRakt(); 
   
laanber.clsLaanutgifterLanelista_1 = new bk.clsLaanutgifterLanelista(); 
laanber.clsLaanutgifterLanelista_1.Laan = new bk.clsLaanBasklass[] {raktlaan}; 
   
raktlaan.Belopp_Kr = 100000; 
raktlaan.Raenta_Procent = 9.2; 
raktlaan.Loeptid_AAr = 5; 
   
// Dessa uppgifter påverkar enbart effektiv ränta:
raktlaan.Aviavgift_Kr = 15; 
raktlaan.Beraekna_Effektiv_Raenta = true; 
raktlaan.Upplaeggningsavgift_Kr = 200; 
   
// Utför beräkningen: 
bk.Kalkyl kalkyl = new bk.Kalkyl(); 
kalkyl.Credentials = new System.Net.NetworkCredential("xxxx", "xxxx"); 
// Optimering så endast ett anrop görs till servern...
kalkyl.PreAuthenticate = true; 
// Optimering så resultatet från servern blir gzippat... 
kalkyl.EnableDecompression = true; 
bk.clsResLan resultat = kalkyl.BeraeknaLaan(laanber).result; 
   
Console.WriteLine("effektiv ränta:" + resultat.EffektivRaenta_Proc.ToString()); 
for (int i = 0; i < resultat.AAterbetalningPerAAr.Length; i++) { 
    if (resultat.AAterbetalningPerAAr[i].SummaRaentaAmort_Kr_Per_AAr > 0) { 
        Console.WriteLine("Amortering per månad, år " + (i + 1).ToString() + ": " + Math.Round(resultat.AAterbetalningPerAAr[i].Amortering_Kr_Per_AAr / 12).ToString()); 
        Console.WriteLine("Ränta per månad, år " + (i + 1).ToString() + ": " + Math.Round(resultat.AAterbetalningPerAAr[i].Raenta_Kr_Per_AAr / 12).ToString()); 
        Console.WriteLine("Kvarvarande skuld vid årets början år " + (i + 1).ToString() + ": " + resultat.AAterbetalningPerAAr[i].Kvarvarande_Skuld_Kr.ToString()); 
        Console.WriteLine("Månadsutgift år " + (i + 1).ToString() + ": " + Math.Round(resultat.AAterbetalningPerAAr[i].SummaRaentaAmort_Kr_Per_AAr / 12 + raktlaan.Aviavgift_Kr).ToString());
      Console.WriteLine("----------------"); 
    } 
} 
 
/*
Resultat: 
effektiv ränta:9.73
Amortering per månad, år 1: 1667
Ränta per månad, år 1: 709
Kvarvarande skuld vid årets början år 1: 100000
Månadsutgift år 1: 2391
----------------
Amortering per månad, år 2: 1667
Ränta per månad, år 2: 556
Kvarvarande skuld vid årets början år 2: 80000
Månadsutgift år 2: 2238
----------------
Amortering per månad, år 3: 1667
Ränta per månad, år 3: 402
Kvarvarande skuld vid årets början år 3: 60000
Månadsutgift år 3: 2084
----------------
Amortering per månad, år 4: 1667
Ränta per månad, år 4: 249
Kvarvarande skuld vid årets början år 4: 40000
Månadsutgift år 4: 1931
----------------
Amortering per månad, år 5: 1667
Ränta per månad, år 5: 96
Kvarvarande skuld vid årets början år 5: 20000
Månadsutgift år 5: 1778
----------------
*/