Öncelikle herkese merhaba;
Arkadaşlar sitede bu konuyla ilgi arama yaptırdım ama bulamadım. Elinde kademeli faiz hesabı ile ilgili örneği olan varsa lütfen rica etsem buraya ekleyebilirmi acaba?
formda örneği var sen sadece nasıl arayacağını bilmiyorsun benim eklediğim örneklere bak eminim bulursun sanırım yanlış hatırlamıyorsam birleşik faiz hesaplaması ile ilgili bir şeydi yaptığım
https://accesstr.net/attachment.php?aid=105
birleşik faiz hesaplama kodları
Kod:
Dim tar1 As Date
Dim tar As Variant
Dim n As Variant
Dim par As Variant
Dim asd As Variant
Dim vade As Variant
Dim faizoranı As Variant
Dim carpan As Variant
Dim toplam1 As Variant
Private Sub Komut17_Click()
On Error GoTo Err_Komut17_Click
vade = (taksay.Value + 1) / 2
faizoranı = vade * Me.faiz
carpan = (faizoranı / 100) + 1
toplam1 = toplam.Value * carpan
tar1 = bastar.Value
par = toplam1 / taksay.Value
Dim Rs As New ADODB.Recordset
Rs.Open "taksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.EOF <> True Then
Do
If Rs("musid") = musid.Value Then
Rs.Delete
End If
Rs.MoveNext
Loop Until Rs.EOF
End If
asd = 0
z = taksay.Value
For i = 1 To z Step 1
asd = asd + Round(par, 0)
n = musid.Value
tar = DateAdd("m", i, tar1)
Rs.AddNew
Rs("musid") = n
Rs("taksittutari") = Round(par, 0)
Rs("tarih") = tar
Rs.Update
Next i
Rs.MoveLast
Rs("taksittutari") = Rs("taksittutari") + (toplam1 - asd)
Rs.Update
Set Rs = Nothing
Set conn = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Komut17_Click:
Exit Sub
Err_Komut17_Click:
MsgBox "taksit alanlarından biri boş bu alanları boş geçemezsinizi"
Resume Exit_Komut17_Click
End Sub
Sayın esrefigit hocam ilginize teşekkür ederim. Benim yapmak istediğim bileşik faiz olmayacak. Basit faiz uygulaması olacak. (Kalan anaparaya vade günü üzerinden değişen faiz oranlarına göre kademeli faiz hesaplanması lazım). Faiz oranları değişkenlik göstermemiş olsa iş kolaydı benim için. Ama oranlar değişince işler benim için sarp a sarıyor. Konuyla ilgili örnek ekliyorum. İlk açılan menüde resimli anlatım var. Bakabilirseniz çok memnun olurum. Herkes kolay gelsin iyi çalışmalar..
Arkadaşlar bu konuda fikri olan ya da yardımcı olabilecek kimse yokmu?
Soru : İlk taksit tamam, diğerlerin de hesaplama nasıl oluyor? O resimdeki anlatım yaptığınız yere diğer taksitlerin olması gereken hesaplamalarını da anlatabilir misiniz?
Sonuçta şunu görmek istiyorum: Taksit1 ,istediğim hesaplama sonucu gibi bir tablo gönderirseniz işlemleri anlamaya çalışıp çözelim.
Şahsen ben faizden bileşik olsun olmasın anlamıyorum...
Kusura bakmayın geç cevap yazıyorum müşteriler vardı hiç müsait olamadım. Ben faizlerin sonuç miktarlarını, değişen faiz oranlarına göre ve kalan anapara tutarına göre nasıl hesaplandığını (formüllerini) resimlerle açıklamaya çalıştım. İlginize çok ama çok teşekkür ederim, beni çok sevindirdiniz. Herkese iyi çalışmalar diliyorum