2015 yılı GV oranlarına Göre Gelir Vergisi Hesaplama

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Mesaja eklediğiniz belgeye bakmadım.
Kendi kullandığım ekli dosya işinizi görecektir.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Olması gereken: 35.137,86 TL matrah üzerinden 6.857,22 TL oluyor.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,381
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Yıllık GV için aşağıdaki fonksiyonu kullanın. Ücretlerde ise, fonksiyon içindeki 3.dilimi değiştirip matrahlar arasındaki farktan o ay için ücretten kesilecek GV ne ulaşırsınız. Yani;

=Standart_GV(Aralık 2014 küm. matrah) - Standart_GV(Kasım 2014 küm. matr.)

Ücretelerde GV hesaplamanın aynı sonucu veren 3 farklı yolu vardır.

Kod:
Function Standart_GV(ByVal matrah As Double) As Double
Dim dilim as Variant
Dim oran as Variant

        dilim = Array(0, 12000, 29000, 66000)
        oran = Array(0, 0.15, 0.2, 0.27, 0.35)
       
        Select Case matrah
            Case Is <= dilim(1)
                Standart_GV = RoundA(matrah * oran(1), 2)
            Case dilim(1) To dilim(2)
                Standart_GV = RoundA(((matrah - dilim(1)) * oran(2)) + Standart_GV(dilim(1)), 2)
            Case dilim(2) To dilim(3)
                Standart_GV = RoundA(((matrah - dilim(2)) * oran(3)) + Standart_GV(dilim(2)), 2)
            Case Else
                Standart_GV = RoundA(((matrah - dilim(3)) * oran(4)) + Standart_GV(dilim(3)), 2)
        End Select
    End Function

    Private Function RoundA(Sayi, Optional Basamak As Long)
    Dim Kat As Long
    Kat = 10 ^ Abs(Basamak)
    If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
    If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
    End Function
 
Katılım
1 Nisan 2007
Mesajlar
24
Excel Vers. ve Dili
excel 2003
tr
Altın Üyelik Bitiş Tarihi
16.04.2023
Ücretli Çalışanlar için Gelir Vergisi Hesaplama

Ömer Bey Öncelikle İlginize teşekkür ederim.

Ücretli Çalışan için Ekteki Örnekte;
23.261,88 TL -- Gelir Vergisi Matrahını,
35.137,85 TL -- Kümülatif Gelir Vergisi Matrahı dilimlerini dikkate alarak
5.075,65 TL -- Gelir Vergisi olması Gerekiyor.

Ancak Bunu Formülle nasıl yapabilirim.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhabalar, 5.075,65 TL'yi nasıl hesaplıyorsunuz acaba?
Benim yazdığım 6.857,22 TL'lik GV miktarı, 35.137,85 TL'lik matraha göre hesaplanmış tutardır.
 
Katılım
10 Haziran 2011
Mesajlar
176
Excel Vers. ve Dili
2003 Türkçe
Süregelen Matrah 35137,85, Vergi Matrahı da 23261,88 ise Hesaplanan G.V.=6280,71 olur.
29000-66000 aralığının vergi oranı %27'dir. Eğer yanlış anlamamışsak.
 
Katılım
1 Nisan 2007
Mesajlar
24
Excel Vers. ve Dili
excel 2003
tr
Altın Üyelik Bitiş Tarihi
16.04.2023
Merhaba Ömer Bey GV sini heaplama şekli
Ekte Dosyada var

23.261,88 -- İhbar Tazminatı Gelir Vergisi Matrahı
11.875,98 -- Devreden Kümülatif Gelir Vergisi Matrahı
35.137,85 -- Son Kümülatif Gelir Vergisi Matrahı

Son KGVM =35.137,85 tl dikkate alınarak 23.261,88 GVM Verği dilimlerine Göre Dağılım

GVM dağılımı Açıklama
1- 126,02 %15 dilim (23.261,88-6.136,85-16.999)
2- 16.999,00 %20 dilim (29000-12001)
3- 6.136,85 %27 dilim (35.137,85-29.001)

Yukarıdaki dağılıma göre: 5.075,65 TL Gelir vergisi oluşuyor
İlginize Teşekkür Ederim.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Vergicilikte +1 TL'nin nereye yazılacağının önemini de hatırlatmam lazım.
Ekteki dosyayı inceleyiniz. Sarı zeminli alana Gelir Vergisi Matrahı'na ilave edilecek tutarı yazmanız yeterli.
İyi günler dilerim.
 

Ekli dosyalar

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,852
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Gelir vergisi hesaplamaları ile ilgili bu sitede bir çok kod , fonksiyon ve tartışmalar mevcut bende kendi yaptığım kodu dosyası ile birlikte ekliyorum.

Herhalde yazı dilinde birbirimizi anlıyamıyoruz.

Örnek dosyada görüleceği üzerine (kümülatif_matrah) ve (matrah) değerleri alınarak (gelirvergisi) bulunmuştur.

Kümülatif matrahınızı bir hücreye yazın (yani daha önceden gelir vergisi hesaplanmış matrahlar)
Matrahı bir hücreye yazın (yani daha önceden gelir vergisi hesaplanmayan matrahlar)

sonra hücrenin birine aşağıdaki ktf yazın.

Kod:
=Gelir(kümülatif_matrah;matrah)
kod:

Kod:
Function gelir(kümülatif_matrah, matrah)

sat = 4
ReDim a(sat)
ReDim b(sat)
ReDim c(sat)

vergi1 = 0
vergi2 = 0

rakam1 = kümülatif_matrah + matrah
rakam2 = kümülatif_matrah
'______________________________
'vergi dilimleri
a(1) = [COLOR="red"]12000[/COLOR]         '1. dilim
a(2) = [COLOR="red"]29000 [/COLOR]        '2. dilim
a(3) = [COLOR="red"]66000[/COLOR]         '3. dilim
a(4) = 500000000 * (rakam1) 'diğerleri
'______________________________
'yüzde oranları
b(1) = [COLOR="Red"]0.15[/COLOR]          '1. dilim
b(2) = [COLOR="red"]0.2  [/COLOR]         '2. dilim
b(3) = [COLOR="red"]0.27 [/COLOR]         '3. dilim
b(4) = 0.35          'diğerleri
'______________________________
c(1) = a(1)
c(2) = a(2) - a(1)
c(3) = a(3) - a(2)
c(4) = a(4) - a(3)

'______________________________

i = 1
While rakam1 > 0

'---------------------------------
If rakam1 >= c(i) Then
vergi1 = vergi1 + ((c(i) * b(i)) / 1)
rakam1 = rakam1 - c(i)
Else
vergi1 = vergi1 + ((rakam1 * b(i)) / 1)
rakam1 = 0
End If

'---------------------------------
If rakam2 >= c(i) Then
vergi2 = vergi2 + ((c(i) * b(i)) / 1)
rakam2 = rakam2 - c(i)
Else
vergi2 = vergi2 + ((rakam2 * b(i)) / 1)
rakam2 = 0
End If

'---------------------------------
i = i + 1
Wend

gelir = Round(vergi1 - vergi2, 2)

End Function
 

Ekli dosyalar

Üst