faiz hesaplama (artan anapara)

[ayhadi]

Slm,

Örn; 10.000 TL var. Her gün bu rakam aynı tutar artıyor. yani ikinci gün 20 bin üçüncü gün 30 bin oluyor gibi. ve ben sitiyorum ki 100 TL faiz kazanacığım günü bana haber versin. Bu rakam 100 Tl nin altında vey üstünde çıkarsa da 100 e en yakın olan getirinin gününü seçsin.

Örnek dosyada ekte. Tşk.

 

[fedeal]

Fonksiyonla yapılışını bilmiyorum ama makroyla bir çalışma yaptım.Umarım faydalı olur.İyi çalışmalar.

Sub fdl()
Dim i, para, faiz, eski, eskif As Long
For i = 1 To 1000
If i = 1 Then
para = Cells(2, 6).Value
faiz = para * Cells(2, 3).Value * (1 / 36500)
Else
eski = para
eskif = faiz
para = para + Cells(2, 7).Value
faiz = faiz + (para * Cells(2, 3).Value * (1 / 36500))
If faiz > Cells(2, 8).Value Then
Cells(2, 9).Value = i - 1
Cells(2, 10).Value = eski
Cells(2, 11).Value = CDbl(eskif)
Exit Sub
End If
End If
Next
End Sub

 

[ayhadi]

Merhaba Fedeal,

Sanırım hesaplamada bir hata var. Ulaşacağı rakam değil de, ulaşacağı faiz tutarını dikkate alması gerekecekti. (100 TL)


Ayrıcas fonksiyon olarak mümkün ise diğer arkadaşlardan da katkı bekliyorum.

Saygılar.

 

[parametre]

Merhaba Fedeal,

Sanırım hesaplamada bir hata var. Ulaşacağı rakam değil de, ulaşacağı faiz tutarını dikkate alması gerekecekti. (100 TL)


Ayrıcas fonksiyon olarak mümkün ise diğer arkadaşlardan da katkı bekliyorum.

Saygılar.

buradaarkadasımızıyaptıgı guzecalısma var
çok guzel hazırlamıs

 

[fedeal]

üstteki mesajı düzelttim.

 

[ayhadi]

Tekrar tşk.