• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

gelir vergisi hesaplama kodları

  • Konbuyu başlatan Konbuyu başlatan METE
  • Başlangıç tarihi Başlangıç tarihi
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
 
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
 
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?
 

Ekli dosyalar

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.
 
örnek dosya ektedir.
 

Ekli dosyalar

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?
 

Ekli dosyalar

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.
 

Ekli dosyalar

Sarı ile renklendirilmiş hesaplama doğrudur, saygılar.
 
sarı ile renklendirilmiş hesaplama doğrudur, saygılar.
 
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
 

Ekli dosyalar

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.
 

Ekli dosyalar

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.
 
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
 
Fonksiyon ya kod şu sonuca varmalıdır...
 

Ekli dosyalar

  • D.xls
    D.xls
    22.5 KB · Görüntüleme: 40
1.360,00
8.000,00 x 15% = 1.200,00
----------

Bu ayki GV.si 160,00 olmalı...
 
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
 
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.
 
Geri
Üst