faiz hesabı

[eksiman]

danersin,
Sayın Ersin Bey,
Yeni faiz oranları girdiğimde yine anlamsız bir hesap yaptı. foruma dosya ekleyip gönderdim..İlginizi bekliyorum..Þimdiden teşekkürler...

 

[danersin]

eksiman, kusura bakmayın yoktum uzun süredir.
Baya bekletmişim artık yarın bakmaya çalışacağım ama buna daha güzel bir algoritma gerekiyor heralde böyle eksikler çıktığına göre..

 

[eksiman]

Sevgili Ersin Bey,
Ekli dosyadaki hesabı incelermisiniz...

 

[danersin]

sn.eksiman,

20 nolu tarih olarak sizin son işlem tarihinizden çok sonraki bir tarihi yazarak . örneğin 31.12.2010 ve faiz oranı olarakta bir önceki 1.5.2005'teki 30 oranını yazarak hesaplamaları yapabilirmisiniz.
Son satırdaki tarih işlem tarihinizden önce kaldığında problem çıkıyor ve düzgün bir çözüm bulamadım şu an. böyle sanal bir son tarih kullanırsanız (ve yeni faiz eklendiğinde bunu silip yeni faizi girip sonra yine çok ilerki bir tarihe sanal tarih oluşturmayı unutmayın)..

 

[dost]

Sayın eskiman,


Sayın danersin'in izniyle gerekli düzeltmeleri yapılmış kod aşağıdadır.


[vb:1:95e0d3e781]
Sub hesapla()

k = 4

Do While Cells(k, 7) <> ""
tutar = Cells(k, 7)
bastar = Cells(k, 8)
sontar = Cells(k, 9)
tmpbastar = bastar
j = 4
faiz = 0
devam = True
Do Until devam = False
faiztar = Cells(j, 3)
If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False
If bastar > faiztar Then GoTo 20
faizor = Cells(j - 1, 4)

faiz = faiz + ((faiztar - tmpbastar) * tutar * faizor) / 36500

tmpbastar = faiztar
20
j = j + 1
Loop
Cells(k, 10) = faiz
k = k + 1: faiz = 0
Loop

End Sub
[/vb:1:95e0d3e781]

 

[eksiman]

teşekkürler dost....soruyu tekrar açarak ilgisini gösteren ersin beye de ayrıca teşekkür ederim... :dua2: :dua2:

 

[eksiman]

visual basic kodu:
--------------------------------------------------------------------------------
If Cells(j, 3) = "" Then faiztar = sontar: devam = False
--------------------------------------------------------------------------------


satırını


visual basic kodu:
--------------------------------------------------------------------------------
If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False
--------------------------------------------------------------------------------



olarak değiştirirseniz doğru hesaplama yapacaktır. "Dost"

 

[ookatan]

eklenmiş dosyalar neden açılmıyo kaldırıldımı acaba

 

[S.Yiğit]

eklenmiş dosyalar neden açılmıyo kaldırıldımı acaba

Dakika 1 gol 1

 

[ookatan]

e napalım yeni üye oldum aradığımı buldum derken eskidosyalar kaldırılmış sanırım

 

[kardas7178]

tşk...................