- Bankalardan bir şekilde hepimiz kredi almışızdır. Hani akıl erdiremediğimiz kredi hesaplama fonksiyonları vardır ya, A-Net forumdan bir arkadaşımız @Levye PHP kodunu yazmış. Bize de bunu Delphi'ye dönüştürüp sizlere sunmak düşer...
- Akbank'ın kredi hesap makinesi ile test ve teyid edilmiştir.
- Unutmayınız, vergi ve masraflar için söylüyorum, krediden krediye ve bankaya göre değişen oran KKDF oranıdır. Mutlaka kontrol ediniz. Mesela konut kredilerinde bu oran 0 iken bireysel kredilerde 0.15 oluyor. Bu hatırlatmamı da bir yere not edin.
Kod: Tümünü seç
// Uses Math
Procedure Kredi_Hesapla(BSMV, KKDF, VadeSayisi, FaizOrani, KrediTutari : Real; Var AylikOdeme, Miktar:Real);
Var
FaizMaliyet,
C1, C2 : Real;
begin
FaizMaliyet :=( FaizOrani + FaizOrani*BSMV + Faizorani*KKDF ) / 100;
C1 := KrediTutari * FaizMaliyet;
C2 := 1 - ( 1/Power( (1+FaizMaliyet), VadeSayisi ) );
AylikOdeme := C1 / C2;
Miktar := AylikOdeme * VadeSayisi;
end;
// Kullanımı ise şöyle örneklenebilir.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
Var
AylikOdeme, Miktar : Real;
begin
Kredi_Hesapla( 0.05, 0.15, 12, 1.99, 10000, AylikOdeme, Miktar ); //968,27 Akbank http://www.akbank.com/715.aspx
ShowMessageFmt('Aylık Ödeme : %f - Miktar : %f', [AylikOdeme, Miktar])
end;