Bordro üzerinde gelir vergisi hesaplatma sorunu

[mehmetkocacik]

Ücret bordrosu üzerinde Gelir vergisi hesaplatma sorunu yaşıyorum yardımcı olmanızı rica edeceğim!

Vergi dilimlerini otamatik olarak hesaplatmak için formül çubuğuna neler yazmak gerekiyor?

VERGİ DİLİMLERİ
7.500 YTL'ye kadar % 15
19.000 YTL'nin 7.500 YTL'si için 1.125 YTL, fazlası % 20
43.000 YTL'nin 19.000 YTL'si için 3.425 YTL, fazlası % 27
43.000 YTL'den fazlasının 43.000 YTL'si için 9.905 YTL, fazlası % 35

yukarıdaki vergi dilimlerini ve oranları formül çubuğuna nasıl yansıtırım,
ekli dosya üzerinde uygulama yapmanız mümkünmü?

 

[baydeniro]

Merhaba mehmetkocacık. Dosyanı biraz rötuşladım. Ekte yeni dosya var.

* Kümülatif Gelir Vergisi matrahını yazdığın durumlarda KümülatifGelir Vergisi de olmak durumunda.

* Öndeğerler sayfasına senin formata uygun küçük bir ekleme yaptım.

* İlk kişinin Kümülatif Gelir Vergisini ben yazdım. Diğerlerini sen yazarsan, dosya ücret bordrosu yapmaya hazır.

 

[mehmetkocacik]

Merhaba mehmetkocacık. Dosyanı biraz rötuşladım. Ekte yeni dosya var.

* Kümülatif Gelir Vergisi matrahını yazdığın durumlarda KümülatifGelir Vergisi de olmak durumunda.

* Öndeğerler sayfasına senin formata uygun küçük bir ekleme yaptım.

* İlk kişinin Kümülatif Gelir Vergisini ben yazdım. Diğerlerini sen yazarsan, dosya ücret bordrosu yapmaya hazır.

Serdar kardeş yardımlarınızdan dolayı çok teşekkür ederim
ufak tefek değişiklikleri ve toplama hatalarınıda düzelttim ancak kümülatif vergiyi sıfırladığım takdirde sonuçlarda değişme yapıyor, kümülatif vergiyi sıfırladığım zaman sonucu neden etkiliyor acaba.

 

[serseryyy]

tesekürler

 

[ferhad1021]

arkadaşlar şu kümülatif gelir vergisi hesaplama dosyasını yeniden aktif hale getirebilir veya yeni bir dosya ekleyebilirmisiniz. acil.

 

[muhasebecix]

arkadaşlar şu kümülatif gelir vergisi hesaplama dosyasını yeniden aktif hale getirebilir veya yeni bir dosya ekleyebilirmisiniz. acil.

arkadaşlar bende aynı dertten müzdaribim.çok acil excelde kümülatif gelir vergisi hesaplama dosyasını yollarmısınız.çok çok acil.

 

[Yesilyurtlu]

halit3 uzmanıma (ALLAH ondan razı olsun) aittir.

Function STOPAJ(kumulatif_matrah As Double, matrah As Double) As Double

Dim Fark As Double
Const bir_dilim As Long = 8700
Const iki_dilim As Long = 22000
Const uc_dilim As Long = 50000


'*****ORANLAR*********
DEĞER1 = 0.15
DEĞER2 = 0.2
DEĞER3 = 0.27
DEĞER4 = 0.35

'************* I. DILIM ****************
If kumulatif_matrah <= bir_dilim Then
STOPAJ = Round(matrah * DEĞER1, 2)

'************* II. DILIM ***************
ElseIf kumulatif_matrah > bir_dilim And kumulatif_matrah <= iki_dilim Then
Fark = kumulatif_matrah - bir_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER1
STOPAJ = Round(STOPAJ + Fark * DEĞER2, 2)
Else
STOPAJ = Round(matrah * DEĞER2, 2)
End If

'************* III. DILIM ***************
ElseIf kumulatif_matrah > iki_dilim And kumulatif_matrah <= uc_dilim Then
Fark = kumulatif_matrah - iki_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER2
STOPAJ = Round(STOPAJ + Fark * DEĞER3, 2)
Else
STOPAJ = Round(matrah * DEĞER3)
End If

'************* IV. DILIM ****************
ElseIf kumulatif_matrah > uc_dilim Then
Fark = kumulatif_matrah - uc_dilim
If Fark < matrah Then
STOPAJ = (matrah - Fark) * DEĞER3
STOPAJ = Round(STOPAJ + Fark * DEĞER4, 2)
Else
STOPAJ = Round(matrah * DEĞER4, 2)
End If
End If
End Function




Modül içine KOPYALAYACAKSINIZ. Benim hala çok işime yarayan ve sıkıntıdan kurtaran Bir makrodur.

=STOPAJ(Yıllık MAtrah olan Hücre;Aylık matrah olan hücre)

 

[halit3]

yanlışlık oldu galiba geçmiş zamanda ben kodlarda yanlızca düzeltme yapmıştım. kodları bu siteden almıştım . benim yazdığım kodlar farklı

Function gelirvergisibul(kümülatif_matrah, matrah)
If kümülatif_matrah < matrah Then
deger = GELIRBUL(matrah - kümülatif_matrah)
Else
deger = 0
End If
gelirvergisibul = GELIRBUL(kümülatif_matrah) - GELIRBUL(kümülatif_matrah - matrah) + deger
End Function
Function GELIRBUL(Sayi)
Dim a(6)
Dim b(6)
Dim c(6)
Dim d(6)
Dim vergi(6)
i = 1
vergi1 = 0
rakam = Sayi
'______________________________
'yüzde oranları
b(1) = 0.15
b(2) = 0.2
b(3) = 0.27
b(4) = 0.35
b(5) = 0.35
b(6) = 0.35
'______________________________
'vergi dilimleri
c(1) = 8700
c(2) = 22000
c(3) = 50000
c(4) = 25000
c(5) = 125000
c(6) = 625000
'______________________________
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)
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)
End If
vergi1 = vergi1 + vergi(i)
i = i + 1
Wend
GELIRBUL = vergi1
End Function