Gelir Vergisi Yüzdesini Tespit Etme

Istarçalı · 24 Ağustos 2007

Merhabalar, Gelir Vergisi hesaplarken; kümülatif matrahı da dikkate alarak ne kadar vergi kesileceğinin rakamını buluyoruz. Benim ise yapmak istediğim şu:
Bu rakamın yüzdesini bulmak. Eğer ile bu oranı tespit edebiliyorum. Ama gelir vergisinde hem iki dilimin de yüzde oranlarının kullanıldığı ayda ortalama oranı nasıl bulabilirim. Bu konuda göstereceğiniz yardımlar için şimdiden teşekkürler..
:yardim:

Leoncio · 24 Ağustos 2007

Merhaba;

Konu ile ilgili olarak arama motorunu kullanırsanız bir çok örneğini göreceksiniz.

Istarçalı · 24 Ağustos 2007

Levent bey, sanırım sorumu anlamadan cevap yazdınız. Benim derdim rakamla değil, yüzde ile. Yani o rakam bulunurken hangi yüzde kullanılmış.
=Eğer(rakam<7500;15;20) gibi. Sorun olan nokta rakamda her iki yüzdenin de kullanıldığı dönemlerde. Burada da bir ortalama bulmak istiyorum. Bunun formülünü yapamadım..
Teşekkürler..

Istarçalı · 24 Ağustos 2007

http://www.vergiportali.com/hesaplamalar_maas.asp
üstteki linkte yer alan çalışma gibi excel üzerinde bir çalışma yapmak istiyorum. Siz excelkoliklerin de yardımını rica ediyorum. Teşekkürler..

Leoncio · 24 Ağustos 2007

Merhaba;

Kusura bakmayın biraz okuma özürlüyüm herhalde. Aşağıdaki formülü kullanabilirsiniz. Yeni tarifeleri güncellemek kaydıyle..

=EĞER(VE(A1<=6600;A1>0);15;EĞER(VE(A1>6600;A1<=15000);20;EĞER(VE(A1>15000;A1<=30000);25;EĞER(VE(A1>30000;A1<=78000);30;EĞER(A1>78000;35;"")))))

Istarçalı · 24 Ağustos 2007

Estağfurullah Levent bey..
Ama benim kısmen istediğim bu. Matraha iki dilim birden uygulandığında oluşan verginin de oranı lazım aslında.. (Ortalama gibi birşey olabilir).. Bunu neden istiyorum. Netten Brüte 12 aylık hesaplama yaptırmak gerekiyor.
http://www.vergiportali.com/hesaplamalar_maas.asp
şu linkteki gibi excel de bir sayfa hazırladım. Ama matraha iki dilim birden yüzde oranı uyguladığı durumlarda neti brüte hatalı çeviriyor. Bunu başaramadım. O yüzden bu durumlarda ortalama bir yüzde bulabilsem; belki istediğim sonuca ulaşacağım.

Leoncio · 24 Ağustos 2007

O zaman şöyle yapsanız;

Arama motorundan aramak koşuluyla netten brüte-brütten nete birçok örnekler bulabilirsiniz. Belki size ışık tutabilir.

Istarçalı · 24 Ağustos 2007

Birtek Sadettin bey diye bir SMMM bir kod hazırlamış. O da çalışmıyor.
Elimde şöyle bir kod var. Nerden bulduğumu hatırlamıyorum.

Kod:

Function netbrut(net, dvo, ssko, iso, gvo, ssktaban, ssktavan)
tavan_net = ssktavan * (1 - dvo - ssko - iso - gvo + ssko * gvo + iso * gvo)
If net <= tavan_net Then
    netbrut = net / (1 - dvo - ssko - iso - gvo + ssko * gvo + iso * gvo)
End If
If net > tavan_net Then
    netbrut = (-1) * ((gvo * (ssktavan * ssko + ssktavan * iso) - ssktavan * ssko - ssktavan * iso - net) / (1 - dvo - gvo))
End If
End Function

Bu fonksiyon da; matraha iki dilim birden vergi uyguladığında yanlış hesaplıyor. Yani hem %15, hem %20 oranlarının uygulandığı bir matrahta; uygulanan yüzdelerin ortalamasını tuttrabilsek (%17,20 gibi), sanırım bu kod işimi görecek.
İlgi ve alakanız için teşekkürler..

Leoncio · 24 Ağustos 2007

Merhaba;

Bir zamanlar işimin gereği bu tip konuları çok kurcalıştım. Şu aralar pek ilgilenemedim. Ama güncellemek kaydıyle aşağıdaki fonksiyon işinize yarar diye düşünüyorum.

Function net(brüt)
ybrüt = brüt * 12
Başla:
ysskmtavan = (450000000# * 3) + (1050000000# * 9)
ysskmtaban = (150000000# * 3) + (210000000# * 9)
ygvind = 21900000#
If ybrüt <= 0 Then
GoTo Bitti
End If
If ybrüt > 0 Then
If ybrüt > ysskmtavan Then
ysskm = ysskmtavan
ElseIf ybrüt < ysskmtaban Then
ysskm = ysskmtaban
ElseIf ybrüt < ysskmtavan And ybrüt > sskmtaban Then
ysskm = ybrüt
End If
End If
Hesap:
ysskp = Int(ysskm * 14 / 100)
yisp = Int(ysskm * 2 / 100)
ygvm = ybrüt - (ysskp + yisp + ygvind)
'Buradan itibaren yıllık vergi hesabı yapılıyor.
If ygvm > 0 Then
If ygvm >= 70000000000# Then
ygv = 21560000000# + Int((ygvm - 70000000000#) * 0.4)
ElseIf ygvm >= 35000000000# Then
ygv = 9310000000# + Int((ygvm - 35000000000#) * 0.35)
ElseIf ygvm >= 14000000000# Then
ygv = 3010000000# + Int((ygvm - 14000000000#) * 0.3)
ElseIf ygvm >= 7000000000# Then
ygv = 1260000000# + Int((ygvm - 7000000000#) * 0.25)
ElseIf ygvm >= 2800000000# Then
ygv = 420000000# + Int((ygvm - 2800000000#) * 0.2)
Else
ygv = Int(ygvm * 0.15)
End If
End If
ygv = Int(ygv)
ydv = Int((ybrüt * 6) / 1000)
ykestop = ysskp + yisp + ygv + ydv
ynet = Int(ybrüt - ykestop)
net = Int(ynet / 12)
Bitti:
End Function

Istarçalı · 24 Ağustos 2007

Önce kodu çözmeye çalışayım. Karışık geldi sanki.. TEşekkürler..