ÖZEL GİDER İNDİRİMİ MAKROSU ?

[fazli77]

Değerli forumdaşlar,

Elinde özel gider indirimini hesaplayacak makro olanlardan yardım istiyorum. Hesaplama 0 - 3300 arasına % 8 3301-6600 arasına % 6 6600 den sonrasına % 4 verecek şekilde olmalı .

Teşekkür eder başarılar dilerim.

 

[veyselemre]

[vb:1:9620e9e0d0]Function iade2005(tutar)
iade2005 = Round(Switch(tutar > 6600, (tutar - 6600) * 0.04 + 462, tutar > 3300, (tutar - 3300) * 0.06 + 264, tutar <= 3300, (tutar) * 0.08), 2)
End Function[/vb:1:9620e9e0d0]