Vekalet ücreti hesaplama

[Radikal34]

İyi günler, aşağıda yazılı verilere göre vekalet ücreti hesaplama için formüle ihtiyacım var. Yardımcı olursanız sevinirim.

1. İlk 35.000,00 TL için % 12,00
2. Sonra gelen 45.000,00 TL için % 11,00
3. Sonra gelen 80.000,00 TL için % 8,00
4. Sonra gelen 240.000,00 TL için % 6,00
5. Sonra gelen 600.000,00 TL için % 4,00
6. Sonra gelen 750.000,00 TL için % 3,00
7. Sonra gelen 1.250.000,00 TL için % 1,50
8. 3.000.000,00 TL’dan yukarısı için % 1,00

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Sayfanın üst-ortasında ARAMA bölümü var,
oraya vekalet ücreti veya gelir vergisi yazıp arama yaparsanız,
forumda çok sayıda örnek olması lazım.
.

 

[sakman26]

link : http://s5.dosya.tc/server2/7im1p7/VekaletUcreti.xlsx.html

eki inceleyin....
kolay gelsin..

 

[Radikal34]

Öncelikle teşekkür ederim, http://s5.dosya.tc/server2/7im1p7/VekaletUcreti.xlsx.html linki "güvenli olmayan bu indirme smartscren filtresi tarafından engellendi" şeklinde uyarı verdiğinden indirilemiyor? Nasıl çözebilirim?

 

[sakman26]

Altın üyelik olduğuna göre eklere bakabilirsiniz.
Buyurun..

 

[halit3]

Kullanıcı tanımlı fonksiyon (KTF)

işlevi

=gelirvergisi(A1;B1)

=gelirvergisi(kümülatif_matrah; matrah)

kod:

Function gelirvergisi(kümülatif_matrah, matrah)
gelirvergisi = GELIRBUL(kümülatif_matrah + matrah) - GELIRBUL(kümülatif_matrah)
End Function

Function GELIRBUL(matrah)

sayi = 9

ReDim a(sayi)
ReDim b(sayi)
ReDim c(sayi)
ReDim d(sayi)
ReDim vergi(sayi)
i = 1
vergi1 = 0
rakam = matrah
'______________________________
'yüzde oranları
b(1) = 0.12
b(2) = 0.11
b(3) = 0.8
b(4) = 0.6
b(5) = 0.4
b(6) = 0.3
b(7) = 0.015
b(8) = 0.1
b(9) = 0.1

'______________________________
'vergi dilimleri
c(1) = 35000
c(2) = 45000
c(3) = 80000
c(4) = 240000
c(5) = 600000
c(6) = 750000
c(7) = 1250000
c(8) = 3000000
c(9) = c(8) * rakam
'______________________________

d(1) = c(1)
d(2) = c(2) - c(1)
d(3) = c(3) - c(2)
d(4) = c(4) - c(3)
d(5) = c(5) - c(4)
d(6) = c(6) - c(5)
d(7) = c(7) - c(6)
d(8) = c(8) - c(7)
d(9) = c(9) - c(8)

While rakam > 0
If rakam >= d(i) Then
a(i) = d(i)
vergi(i) = ((d(i) * b(i)) / 1)
rakam = rakam - d(i)
ElseIf rakam < d(i) Then
d(i) = rakam
rakam = rakam - d(i)
vergi(i) = ((d(i) * b(i)) / 1)
Else
vergi(6) = ((d(6) * b(6)) / 1)
End If
vergi1 = vergi1 + vergi(i)
i = i + 1
Wend
GELIRBUL = vergi1
End Function

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/dilim-ve-orana-gore-hesaplama/


.