Banka Kredisi Hesaplama Fonksiyonu...

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Banka Kredisi Hesaplama Fonksiyonu...

Mesaj gönderen mrmarman »

Herkese selam...

- 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... 8)

- Akbank'ın kredi hesap makinesi ile test ve teyid edilmiştir. :idea:

- 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. :wink:

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;
Resim
Resim ....Resim
cihanarmgn
Üye
Mesajlar: 5
Kayıt: 16 Kas 2018 02:48

Re: Banka Kredisi Hesaplama Fonksiyonu...

Mesaj gönderen cihanarmgn »

Kredi hesaplama konusu ise basit bir şekilde formülize edilebilir:

Diyelim ki; aylık yüzde 1,5 faizle 24 ay vadeli 20 bin lira kredi alacaksınız. Bu durumda taksit tutarı şu şekilde hesaplanacaktır:

Taksit Tutarı = Kredi Tutarı * [Faiz * (1 + Faiz) Taksit Sayısı / (1 + Faiz) Taksit Sayısı – 1]
Taksit Tutarı = 20.000 * [0,015 * (1 + 0,015)24 / (1 + 0,015)24 – 1]
Taksit Tutarı = 996,5 lira (yaklaşık olarak)

Buradan da hesaplama yapabilirsiniz: https://hesaplama.paratic.com/kredi/
Cevapla