Faiz hesaplama tablosu

[airborne]

s.a.

linkteki dosyada faiz hesaplama tablosu var. Bu tabloyu yine aynı çalışma sayfasındaki gibi makro ile tek satırda oluşturulabilir mi.

Selametle.....................

http://dosya.co/89jyf8mwx5dv/Faiz_Hesaplama.xls.html

 

[airborne]

s.a.

makro ile olabilir mi.

 

[mahmut011]

Function faiz(baslangictarihi As Date, bitistarihi As Date, anapara As Double) As Double
    
    faiz = 0#
    
    If bitistarihi <= 35795 Then 'tarihlerin sayı karşılıklarını kullanıldı
    faiz = faiz + 0.3 / 365 * bitistarihi
    Else
    faiz = faiz + 0.3 / 365 * 35795
    End If
    
    If bitistarihi > 36525 Then
    faiz = faiz + 0.5 / 365 * (36525 - 35795)
    ElseIf bitistarihi <= 36525 And bitistarihi > 35795 Then
    faiz = faiz + 0.5 / 365 * (bitistarihi - 35795)
    End If
    
    If bitistarihi > 37437 Then
    faiz = faiz + 0.6 / 365 * (37437 - 36525)
    ElseIf bitistarihi <= 37437 And bitistarihi > 36525 Then
    faiz = faiz + 0.6 / 365 * (bitistarihi - 36525)
    End If
    
    If bitistarihi > 37711 Then
    faiz = faiz + 0.55 / 365 * (37711 - 37437)
    ElseIf bitistarihi <= 37711 And bitistarihi > 37437 Then
    faiz = faiz + 0.55 / 365 * (bitistarihi - 37437)
    End If

    If bitistarihi > 38077 Then
    faiz = faiz + 0.3 / 365 * (38077 - 37711)
    ElseIf bitistarihi <= 38077 And bitistarihi > 37711 Then
    faiz = faiz + 0.3 / 365 * (bitistarihi - 37711)
    End If
        
    If bitistarihi > 38352 Then
    faiz = faiz + 0.15 / 365 * (38352 - 38077)
    ElseIf bitistarihi <= 38352 And bitistarihi > 38077 Then
    faiz = faiz + 0.15 / 365 * (bitistarihi - 38077)
    End If

    If bitistarihi > 38717 Then
    faiz = faiz + 0.12 / 365 * (38717 - 38352) + 0.09 / 365 * (bitistarihi - 38717)
    ElseIf bitistarihi <= 38717 And bitistarihi > 38352 Then
    faiz = faiz + 0.12 / 365 * (bitistarihi - 38352)
    End If
'=================================================================================================

    If baslangictarihi <= 35795 Then
    faiz = faiz - 0.3 / 365 * baslangictarihi
    Else
    faiz = faiz - 0.3 / 365 * 35795
    End If
    
    If baslangictarihi > 36525 Then
    faiz = faiz - 0.5 / 365 * (36525 - 35795)
    ElseIf baslangictarihi <= 36525 And baslangictarihi > 35795 Then
    faiz = faiz - 0.5 / 365 * (baslangictarihi - 35795)
    End If
    
    If baslangictarihi > 37437 Then
    faiz = faiz - 0.6 / 365 * (37437 - 36525)
    ElseIf baslangictarihi <= 37437 And baslangictarihi > 36525 Then
    faiz = faiz - 0.6 / 365 * (baslangictarihi - 36525)
    End If
    
    If baslangictarihi > 37711 Then
    faiz = faiz - 0.55 / 365 * (37711 - 37437)
    ElseIf baslangictarihi <= 37711 And baslangictarihi > 37437 Then
    faiz = faiz - 0.55 / 365 * (baslangictarihi - 37437)
    End If

    If baslangictarihi > 38077 Then
    faiz = faiz - 0.3 / 365 * (38077 - 37711)
    ElseIf baslangictarihi <= 38077 And baslangictarihi > 37711 Then
    faiz = faiz - 0.3 / 365 * (baslangictarihi - 37711)
    End If
        
    If baslangictarihi > 38352 Then
    faiz = faiz - 0.15 / 365 * (38352 - 38077)
    ElseIf baslangictarihi <= 38352 And baslangictarihi > 38077 Then
    faiz = faiz - 0.15 / 365 * (baslangictarihi - 38077)
    End If

    If baslangictarihi > 38717 Then
    faiz = faiz - 0.12 / 365 * (38717 - 38352) - 0.09 / 365 * (baslangictarihi - 38717)
    ElseIf baslangictarihi <= 38717 And baslangictarihi > 38352 Then
    faiz = faiz - 0.12 / 365 * (baslangictarihi - 38352)
    End If


    faiz = faiz * anapara

    
    

    
End Function

 

[airborne]

s.a.

üstad dosya üzerinde uygulayamadım. değer hatası veriyor. Mümkünse dosya üzerinde uygulayıp dosya.co yükleyebilir misiniz.


Selametle.....................

 

[mahmut011]

http://dosya.co/5hx82oefr5bl/Faiz_Hesaplama-2.xls.html

Parçalı tarihlerle yaptığınız hesaplamadan 10 TL fazla çıkıyor. Nedeni parçalı tarihli hesaplamada her tarih aralığı için 1 gün eksik hesaplanıyor. Çünkü iki tarih arasında fark alınırsa çıkan gün sayısına iki tarihten biri dahil değildir.(excel 2010 da hata vermeden çalıştı, başlangıç ve bitiş tarihlerini sayı olarak algılaması lazım, bundan dolayı hata veriyor olabilir)

 

[airborne]

s.a.

Teşekkür ederim üstad

 

[Ömer BARAN]

Merhaba.

Yıllar önce yaptığım ve açılmış başka bir konu sayfasına eklediğim belgeyi hatırladım.
İhtiyacınızın tam karşılığı olmayabilir.

İsterseniz aşağıdaki konu sayfasında 3 numaralı cevap ekindeki belgeye de bir bakın.
Belki faydası olur veya ilginizi çeker.

Bankaların Kredi Hesaplama Formülü

.