gelir vergisi hesaplama kodları

[uguro]

ben eklentiyi alamıyorum. acil lazım napcam

 

[ZEKYIL]

hiç birşey indiremiyorum. bu ne biçim bir site

 

[ozertiger]

arkadaslar bu kadar yararlı olacak bir dosyaya erişememek gerçekten çok üzücü...
yönetici arkadaslardan rica ediyorum bu çok önemli olan dosyayı tekrar bizimle paylaşsınlar...

iyi çalışmalar

 

[halit3]

arkadaslar bu kadar yararlı olacak bir dosyaya erişememek gerçekten çok üzücü...
yönetici arkadaslardan rica ediyorum bu çok önemli olan dosyayı tekrar bizimle paylaşsınlar...

iyi çalışmalar

bu sitede bununla ilgili bir sürü örnekler var ben birde buraya koyayım işte kod

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
If matrah = "" Then
gelirvergisibul = GELIRBUL(kümülatif_matrah)
ElseIf matrah <= 0 Then
gelirvergisibul = GELIRBUL(kümülatif_matrah)
End If
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) = 8800
c(2) = 22000
c(3) = 50000
c(4) = 500000000
c(5) = 500000000
c(6) = c(5) * 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)
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

 

[Leoncio]

Sayın halit3 merhaba;

Vermiş olduğunuz örnek baz alınarak ekte bulunan çalışmada hesaplanan gelir vergisinde farklılıklar oluşuyor. Sarı ile renklendirilmiş sonuçlarda sizin fonksiyon kullanılarak bir vergi bulunmuş. Gri dolgulu olandada manuel hesaplanan vergi var. Bir anormallik varmı sizce?

 

[halit3]

Sayın halit3 merhaba;

Vermiş olduğunuz örnek baz alınarak ekte bulunan çalışmada hesaplanan gelir vergisinde farklılıklar oluşuyor. Sarı ile renklendirilmiş sonuçlarda sizin fonksiyon kullanılarak bir vergi bulunmuş. Gri dolgulu olandada manuel hesaplanan vergi var. Bir anormallik varmı sizce?

sizin gösterdiğiniz örnekte manuel olarak hesaplanan gelirvergisinde kümülatif matrağa aylık matrah dahil edilerek hesaplanmış

fonksiyon ile hesaplamada matrağı kümülatif matrağın içine eklemek gerekiyor.

 

[halit3]

örnek dosya ektedir.

 

[Leoncio]

Sn. Halit;

Eklemiş dosya üzerinde O sütununda sizin fonksiyon ile bulunan sonuç, P sütununda ise benim kullandığım fonksiyon ile bulunan sonuç var. İlginç nedenini ben bulamadım. q14 ve q15 hücrelerde fark oluşuyor.

EDIT: Siz diyorsunuz ki;
sizin gösterdiğiniz örnekte manuel olarak hesaplanan gelirvergisinde kümülatif matrağa aylık matrah dahil edilerek hesaplanmış

fonksiyon ile hesaplamada matrağı kümülatif matrağın içine eklemek gerekiyor

Personel ücretinden kesilen gv için yatırılması gerekende kümütalif matraha aylık matrah dahil edilmek suretiyle hesaplanan değil mi?

 

[Mehmet Şahin]

vergi hesaplama

Bu konu ile ilgili değişik çözümler içeren bir dosya eklemiştim. Yardımcı olabileceği kanısındayım, saygılar.

http://www.excel.web.tr/showthread.php?t=79296&highlight=y%FDll%FDk+%FCcret

 

[Leoncio]

Bu konu ile ilgili değişik çözümler içeren bir dosya eklemiştim. Yardımcı olabileceği kanısındayım, saygılar.

http://www.excel.web.tr/showthread.php?t=79296&highlight=y%FDll%FDk+%FCcret

Sayın Dentex;
Vermiş olduğunuz linkteki hesaplamada bulunan g. vergisi ile kullandığım fonksyionda bulunan g. v. ayni ekte bulunan U sütunundaki sizin V sütunundaki ise benim fonksiyon sonucum problem yok. Halit beyin fonksiyonu ile bulnan sonuç ise x sütununda ve y13 ve y14 hücrelerinde fark var.

 

[Mehmet Şahin]

Sarı ile renklendirilmiş hesaplama doğrudur, saygılar.

 

[Mehmet Şahin]

sarı ile renklendirilmiş hesaplama doğrudur, saygılar.

 

[halit3]

Sn. Halit;

Eklemiş dosya üzerinde O sütununda sizin fonksiyon ile bulunan sonuç, P sütununda ise benim kullandığım fonksiyon ile bulunan sonuç var. İlginç nedenini ben bulamadım. q14 ve q15 hücrelerde fark oluşuyor.

EDIT: Siz diyorsunuz ki;
sizin gösterdiğiniz örnekte manuel olarak hesaplanan gelirvergisinde kümülatif matrağa aylık matrah dahil edilerek hesaplanmış

fonksiyon ile hesaplamada matrağı kümülatif matrağın içine eklemek gerekiyor

Personel ücretinden kesilen gv için yatırılması gerekende kümütalif matraha aylık matrah dahil edilmek suretiyle hesaplanan değil mi?

W7 ,X7 hücrelerine bak 1 aylık hesaplama
ondan sonra elle hesapmakinesi ile hesapla sonuçu değerlendir

 

[Leoncio]

W7 ,X7 hücrelerine bak 1 aylık hesaplama
ondan sonra elle hesapmakinesi ile hesapla sonuçu değerlendir

Sayın Halit Bey;

Niyetim bağcıyı dövmek değil, bunu bütün samimiyetimle söylüyorum. Zira hitabınızdan kızmış olduğunuzu hissettim. Bu yazıyı tekrar yazıp yazmamakta da epey tereddütte kaldım. Eğer öyleyse bu konuyu fazla irdelemeyeceğim.

Bahsettiğiniz hücrelere baktım. Kümülatif vergi toplamı 8.000 Cari aya ait vergi matrahı 8000 üzerinden hesaplanmış. Esasen benim tesbitim ilk dilim olan 8.800 geçişinden sonra sanki hatalı hesaplıyor gibi. (İddada etmiyorum, eğer hatalı bir işlem varsa düzeltmek amacıyla )

Yine eklediğim örnekte dilimler arası geçişlerde farklılık var. Bende muallakta kaldım.

İyi çalşımalar.

 

[halit3]

Sayın Halit Bey;

Niyetim bağcıyı dövmek değil, bunu bütün samimiyetimle söylüyorum. Zira hitabınızdan kızmış olduğunuzu hissettim. Bu yazıyı tekrar yazıp yazmamakta da epey tereddütte kaldım. Eğer öyleyse bu konuyu fazla irdelemeyeceğim.

Bahsettiğiniz hücrelere baktım. Kümülatif vergi toplamı 8.000 Cari aya ait vergi matrahı 8000 üzerinden hesaplanmış. Esasen benim tesbitim ilk dilim olan 8.800 geçişinden sonra sanki hatalı hesaplıyor gibi. (İddada etmiyorum, eğer hatalı bir işlem varsa düzeltmek amacıyla )

Yine eklediğim örnekte dilimler arası geçişlerde farklılık var. Bende muallakta kaldım.

İyi çalşımalar.

Sayın Leoncio :

Beni yanlış anlamışın mesajlarımın geneline bakarsan çok sabırlı olduğumu göreceksin size hiç kızmadım ve darılmadım.

şimdi konuya gelecek olursak benim gönderdiğim örnekte kümülatif toplam süregelen matrahdır benim kodlarımda gelir vergisi hesaplata bilmek için süre gelen gelir vergisi matrağına bu aya ait gelir vergisi matrağını dahil etmek gerekir yoksa bunu dahil etmediğin zaman hesaplamada eksiklik olur


göndermiş olduğum ekdeki dosyada yanlızca ocak ayına ait örneği mantığını anlamanız için vermiştim zira sizin kod yanlızca ocak ayını hesapladımmıydı hatalı hesaplıyor.

dilim geçişlerindede sıkıntı yok çünkü söylediğim gibi hesaplamalarda aylık matrağı kümülatif matrağa dahil etmek gerekiyor.

 

[halit3]

Bu kotda iki türlü fonksiyon var hangisi kendinize uygunsa onu kullanın.

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
If matrah = "" Then
gelirvergisibul = GELIRBUL(kümülatif_matrah)
ElseIf matrah <= 0 Then
gelirvergisibul = GELIRBUL(kümülatif_matrah)
End If
End Function

Function gelirvergisi(kümülatif_matrah, matrah)
deger1 = GELIRBUL(kümülatif_matrah + matrah)
deger2 = GELIRBUL(kümülatif_matrah)
gelirvergisi = deger1 - deger2
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) = 8800
c(2) = 22000
c(3) = 50000
c(4) = 500000000
c(5) = 500000000
c(6) = c(5) * 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)
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

 

[Excel113]

Fonksiyon ya kod şu sonuca varmalıdır...

 

[Excel113]

1.360,00
8.000,00 x 15% = 1.200,00
----------

Bu ayki GV.si 160,00 olmalı...

 

[halit3]

bir örnek açıklama yapayım

şöyle bir şey daha aklıma geldi diyelimki 12 ay boyunca gelir vergisi matrağı x memur kişinin aylık 100 olsun 16 mart da bu memur deseki benim kümlatif vergi matrağım ney dese

şimdi memurlar maaşlarını her ayın 15 inde alıyor o zaman bu kişiye mart ayında olduğumuz için şubat ayı kümülatif vergi matrağı + mart ayı vergi matrağını toplayıpmı sölüyeceksiniz.
sonuç itibariyle uygulama doğru ama toplama işlemi gereksiz oysa hesaplamalarda ilgili aya ait matrağı dahil edilirse bir sıkıntı olmaz.

başka bir örnekte geçen senenin süregelen gelirvergisi matrağını istese gene aynı yöntemle süregelen gelirvergisi matrağı+gelirvergisi matrağı topluyarak vermek yerine önceden ilgili aya ait gelir vergisi matrapını süregelen gelir vergisi matrağına dahil edilirse bu toplamaya gerek kalmaz.

neyse ben ayrılıyorum cuma vakti geldi

 

[Excel113]

Ay sonundan sonuna ücret alanları düşünelim (çünkü farketmez),

Şimdi konu ettiğimiz kavramları yazıya dökelim:

Asgari ücretli bir bekar işçinin 2010/OCAK ayına ait şu verilerini aşağıya yazmak istesek;

Önceki Ay Kümülatif Gelir vergisi Matrahı : 0,00 TL.
Gelir Vergisi Matrahı (Bu Ay) : 619,65 TL.
Kümülatif Gelir Vergisi Matrahı (Bu Ay) : 619,65 TL. dir, deriz.

Asgari ücretli bir bekar işçinin 2010/ŞUBAT ayına ait verilerinide aşağıya yazmak istesek;

Önceki Ay Kümülatif Gelir vergisi Matrahı : 619,65 TL.
Gelir Vergisi Matrahı (Bu Ay) : 619,65 TL.
Kümülatif Gelir Vergisi Matrahı (Bu Ay) : 1.239,30 TL. dir, deriz.

-----------------------------------------

Şimdi işçi bize şubat ayı kümülatifini soracak olsa,
Cevap: 1.239,30 TL. dir.