gelir vergi hesabi oran değişimleri

[subutayı]

a1 hücresindeki rakam 6600 ve küçükse %15 vergi kessin yok şayet 6601 ile 1500 arası ise %20 vergi kessin her ikiside değil de 15001 ve büyükse %25 vergi kessin. bunun formülü ama en büyük sorun da şu
vergi dilimi oranları değişiminde en büyük promlem var.
örneğin personelin en son matrahı 6200 bu ayki maaşı 800 diyelim bügünkü matrahi 7000 oldu. biz burda 6600 kadar olan 400 ün %15 ini, 6600 den 7000 kadar olan diğer 400 ün %20 olarak almasını istiyoruz. vergi oranı geçişlerindeki bu sorunu çözerseniz memnun olurum. teşekürler.

 

[Guest]

=EÐER(A1<=6600;A1*0,15;EÐER(A1<=15000;(A1-F1)*0,2+6600*0,15;EÐER(A1>15000;6600*0,15+(15000-6600)*0,2+A1-15000*0,25;0)))

Merhaba

Yukarıdaki formulu A2 hücresine kopyalayın ve A1 hücresine istediğiniz bir değeri girin bir kontrol ederseniz iyi olur.Benim hazırladığım formulde sadece vergi kısmı bulunmaktadır.Toplamı almak isterseniz sonuna +A1 eklemeniz yeterli ayrıca sorunuzda doğru anladım ise 1500 yazmışsınız bunun 15000 olması gerekiyor.

 

[Guest]

Merhaba

Aşağıdaki dosyada istediğiniz formul bulunmaktadır

=IF(AU11<=6600;AU11*0,15;IF(AU11<=15000;(AU11-6600)*0,2+6600*0,15;IF(AU11>15000;6600*0,15+(15000-6600)*0,2+(AU11-15000)*0,25;0)))

 

[Necdet]

Bir bilge şöyle demiş "En iyi yanıt, en doğru soruya verilir" Sayın subutayı, Sanırım herkesin Gelir vergisi hesaplanmasını bildiğini sanarak sormuş. Gelir Vergisinin hesaplanmasını biraz açmak gerek. Burada belirtilen 6.600, 15.000 gibi rakamlar toplam vergi matrahını ilgilendiren rakamlardır.
Diyelim ki temmuz 2005 itibariyle bir kişinin matrah toplamı 6.200 olsun (Ocak ayından temmuz ayı dahıl aylık matrahlarının toplamı) ve Ağustos 2005 aylık matrahı ise 500 olsun, bu durumda 6.600 e kadar olan kısım yani 400 ün %15 + 100 ün %20 si alınarak o ayın G.V. sinin bulunması gerekir. Yani formul : G.V = (400 X 0,15) + (100 X 0,20) şeklinde olmalıdır.
Bir başka örnek Temmuz toplam matrahı 7.000 olsun yine Ağustos 2005 Aylık matrahı 500 olsun, bu durumda toplam matrah 2. sınır içinde olduğundan yani 6600 den büyük ve 15000 den küçük olduğu için gelir vergisi doğrudan %20 ile çarpılarak bulunmalı yani G.V= 500 X ,020.

Formülü yazan arkadaşların buna dikkat etmesi gerekir.
Saygılarımla

 

[Ertan83]

Alınıtıdır:

Function DGV2005(Matrah As Double) As Double
    Select Case Matrah
        Case 0# To 6600#: DGV2005 = CDbl(Round(0.2 * Matrah, 2))
        Case 6601# To 15000#: DGV2005 = CDbl(Round(0.25 * (Matrah - 6600#), 2) + 1320)
        Case 15001# To 30000#: DGV2005 = CDbl(Round(0.3 * (Matrah - 15000#), 2) + 3420)
        Case 30001# To 78000#: DGV2005 = CDbl(Round(0.35 * (Matrah - 30000#), 2) + 7920)
        Case Is >= 78001#: DGV2005 = CDbl(Round(0.4 * (Matrah - 78000#), 2) + 24720)
    End Select
End Function

Bu fonksiyonu herhangi bir module kopyalayın.
Excel menüsünden Ekle - İşlev Ekle - Kullanıcı Tanımlı Fonksiyon - DGV2005'i seçiniz.

 

[subutayı]

verdiğiniz bilgiler için bütün arkadaşlara teşekür ederim. sizlerin de yardımı ile sorun çözüldü. örnek gönderilmiş ataç üzerinde formülü deneyebilirsiniz.
benim işimi gören formül aşağıdadır.

=EÐER(AU12>=15000;(TAMSAYI(AU13*25%)+PARÇAAL((AU13*25%);3;3));EÐER(VE(AU11>15000;AU12<=15000);(TAMSAYI((((AU11-15000)*25%)+(AU13-(AU11-15000))*20%)))+PARÇAAL((((AU11-15000)*25%)+(AU13-(AU11-15000))*20%);3;3);EÐER(VE(AU12>=6600;AU12<15000);(TAMSAYI(AU13*20%)+PARÇAAL((AU13*20%);3;3));EÐER(VE(AU11>6600;AU12<=6600);(TAMSAYI((((AU11-6600)*20%)+(AU13-(AU11-6600))*15%))+PARÇAAL((((AU11-6600)*20%)+(AU13-(AU11-6600))*15%);3;3));EÐER(AU11<=6600;TAMSAYI(AU13*15%)+PARÇAAL((AU13*15%);3;3))))))

 

[ugurakin]

Bir örnek çalışma da benden


Dim vm(1 To 6)
Dim voranı(1 To 6)
Dim vh(1 To 6)

Function vergi(matrah)
'2005 Yılı Vergi Matrah ve Oranları
vm(1) = 6600
vm(2) = 15000
vm(3) = 30000
vm(4) = 78000
vm(5) = 100000
vm(6) = 999999
voranı(1) = 0.15
voranı(2) = 0.2
voranı(3) = 0.25
voranı(4) = 0.3
voranı(5) = 0.35
voranı(6) = 0.4

vh(1) = (vm(1) * voranı(1))
vh(2) = ((vm(2) - vm(1)) * voranı(2)) + vh(1)
vh(3) = ((vm(3) - vm(2)) * voranı(3)) + vh(2)
vh(4) = ((vm(4) - vm(3)) * voranı(4)) + vh(3)
vh(5) = ((vm(5) - vm(4)) * voranı(5)) + vh(4)
vh(6) = ((vm(6) - vm(5)) * voranı(6)) + vh(5)

For v = 1 To 6
If matrah = vm(v) Then
vergi = vh(v)
GoTo son
End If
If v = 1 And matrah < vm(v) Then
vergi = matrah * voranı(v)
GoTo son
End If
If matrah < vm(v) Then
vergi = (matrah - vm(v - 1)) * (voranı(v)) + vh(v - 1)
GoTo son
End If
Next v

son:

End Function

 

[osan003]

Birde bu örneği incelermisiniz