artı (+) iskonto hesabı

[acar6783]

Merhabalar,

Örnek olarak : 5+5+5 iskonto manuel hesaplama ile % 14,2625 iskontoya denk geliyor


Bu hesaplama ile ilgili daha önce bir kod hazırlayan oldu mu?

hücreyi döngüye alıp her +ya göre mi hesap yapmam gerek?

 

[Korhan Ayhan]

Deneyiniz.

Ana Tutar * (1-İlk İskonto Oranı) * (1-İkinci İskonto Oranı) * (1-Üçüncü İskonto Oranı)

 

[YUSUF44]

İlave eğer iskonto miktarı sorduğunuz gibi 5 yani tamsayı şeklindeyse 1-iskonto oranı değil 100-iskonto oranı şeklinde olmalı. Eğer yüzde şeklinde/ondalık ise (%5 ya da 0,05 gibi) 1-iskonto oranı şeklinde olmalı.

 

[acar6783]

Cevaplar için teşekkürler
Fakat soruyu biraz daha geliştirmek adına şöyle düşünelim Bir textboxda 5+5+5 yazıyor
Bunun için bir fonksiyon oluşturup textboxta yazılı değer farklı bir textboxa 14,2625 olarak getirmeliyim

 

[Haluk]

Private Sub CommandButton1_Click()
    y = 1
    x = Split(TextBox1, "+")
    
    For i = LBound(x) To UBound(x)
        y = y * (1 - x(i) / 100)
    Next
    
    TextBox2 = 100 * (1 - y)
End Sub

.

 

[acar6783]

Private Sub CommandButton1_Click() y = 1 x = Split(TextBox1, "+") For i = LBound(x) To UBound(x) y = y * (1 - x(i) / 100) Next TextBox2 = 100 * (1 - y) End Sub

Çok teşekkür ederim Haluk bey