Asgari Geçim İndirimi makrosu

[sirkülasyon]

Aşağıda yer alan "HALİT AĞABEYE AİT" makroyu;
23 Nisan 2015 tarihli ve 29335 sayılı Resmi Gazete' de yayımlanan
"İŞ SAĞLIĞI VE GÜVENLİĞİ KANUNU İLE BAZI KANUN VE KANUN HÜKMÜNDE KARARNAMELERDE DEĞİŞİKLİK YAPILMASINA DAİR KANUN" un
MADDE 8 – 31/12/1960 tarihli ve 193 sayılı Gelir Vergisi Kanununun 32 nci maddesinin ikinci fıkrasında yer alan “ilk iki çocuk için %7,5” ibaresinden sonra gelmek üzere “,üçüncü çocuk için %10,” ibaresi eklenmiştir. hükmüne göre revize edebilir miyiz?

Function cocuk(kendisi, medenihali, kücükcocuk, büyükcocuk)
deger1 = 0
deger2 = 0
deger3 = 0
deger4 = 0
ReDim veri(8)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 5
veri(4) = 5
veri(5) = 0
veri(6) = 0
veri(7) = 0
veri(8) = 0
If kendisi <> "" Then
deger1 = 50
End If
If medenihali = "EVLİ" Then
deger2 = 10
End If
If kücükcocuk <= 2 Then
deger3 = kücükcocuk * 7.5
Else
deger3 = 2 * 7.5
End If
For i = 1 To Val(büyükcocuk)
deger4 = deger4 + veri(i)
Next
cocuk = deger1 + deger2 + deger3 + deger4
End Function

Bilgi Amaçlı Asgari Geçim İndirimi Hesaplama Tablosu

 

[YUSUF44]

Halit üstadın elbet vardır bir bildiği ancak bana kodlar biraz fazla göründü. Kişinin kendisine 50 standart veriliyor zaten, ayrıca küçük çocuk ve büyük çocuk diye bir ayrıma da asgari geçim için gerek yok. Kodları aşağıdaki gibi dönüştürdüm, bir inceleyin. Kullanımı eş için de hesaplanacaksa 1 kullanılacak, çocukların toplam sayısı yazılacak:

=cocuk(1;5)

gibi.

Eğer bordro dosyanız var ve çocuk sayılarını ve eş durumunu başka hücrelerden alıyorsanız kodda ona göre dönüşüm yapılabilir. örneğin =cocuk(1;küçük çocuk hücresi + büyük çocuk hücresi) gibi

Function cocuk(eş, cocuklar)
deger1 = 50
deger2 = 0
deger3 = 0
deger4 = 0

ReDim veri(8)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 10
veri(4) = 5
veri(5) = 5
veri(6) = 0
veri(7) = 0
veri(8) = 0

If eş = 1 Then
deger2 = 10
End If

If cocuklar <= 2 Then
deger3 = cocuklar * 7.5
Else
deger3 = 15
End If

For i = 3 To Val(cocuklar)
deger4 = deger4 + veri(i)
Next

cocuk = deger1 + deger2 + deger3 + deger4

End Function

 

[sirkülasyon]

Üstad;
1 - Eş otomatik olarak hesaba dahil ediliyor. (Bekar - Evli ayrımı yoktur)
2 - Evli Eşi Çalışan kısmı Eşe otomatik 10 verdiği için hatalı

Düzenleme imkanı varsa rica etsem düzeltebilir miyiz?

Bordroda
N7 Sütununda Medeni Durum = "Bekar, Evli Eşi Çalışan, Evli"
O7 sütununda Çocuk Durumu = İlk iki Çocuk
P7 sütununda Çocuk Durumu = İkiden fazla Çocuk

 

[halit3]

kod:

Function cocuk(kendisi, medenihali, cocuklar)
deger1 = 0
deger2 = 0
deger3 = 0

son = 7
If cocuklar > son Then cocuklar = son

ReDim veri(son)
veri(1) = [COLOR="Red"]7.5[/COLOR]   1. cocuk için
veri(2) = [COLOR="red"]7.5 [/COLOR]  2. cocuk için
veri(3) = [COLOR="red"]10 [/COLOR]   3. cocuk için
veri(4) = [COLOR="red"]5 [/COLOR]    4. cocuk için
veri(5) = [COLOR="red"]5  [/COLOR]   5. cocuk için
veri(6) = [COLOR="red"]5 [/COLOR]    6. cocuk için
veri(7) = [COLOR="red"]5  [/COLOR]   7. cocuk için

If kendisi <> "" Then
deger1 = 50
End If
If medenihali = "EVLİ" Then
deger2 = 10
End If

For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next
cocuk = deger1 + deger2 + deger3
End Function

 

[halit3]

kodların burası ile oynayınız

veri(1) = [COLOR="Red"]7.5[/COLOR]   1. cocuk için
veri(2) = [COLOR="red"]7.5 [/COLOR]  2. cocuk için
veri(3) = [COLOR="red"]10 [/COLOR]   3. cocuk için
veri(4) = [COLOR="red"]5 [/COLOR]    4. cocuk için
veri(5) = [COLOR="red"]5  [/COLOR]   5. cocuk için
veri(6) = [COLOR="red"]5 [/COLOR]    6. cocuk için
veri(7) = [COLOR="red"]5  [/COLOR]   7. cocuk için

 

[sirkülasyon]

Halit abi Kod tamam Teşekkür ederim.
Her türlü vergi matrahını geçemiyor değil mi? Sınır %85
yanlışım varsa düzelt abi

 

[halit3]

Halit abi Kod tamam Teşekkür ederim.
Her türlü vergi matrahını geçemiyor değil mi? Sınır %85
yanlışım varsa düzelt abi

Ben sınırı bilmiyorum sınırı siz ayarlıyacaksınız
Kodda sınır %105
siz kırmızı yerleri ona göre ya sıfır yazacaksınız yada 5,75,10 gibi yazacaksınız.

 

[sirkülasyon]

Halit abi teşekkür ederim.
Sağolasın

 

[halit3]

Kanuna şimdi baktım çocuk sınırlaması yok bende kodu %100 de sınırladım.

Function cocuk(kendisi, medenihali, cocuklar)
deger1 = 0
deger2 = 0
deger3 = 0

son = 8
If cocuklar > son Then cocuklar = son

ReDim veri(son)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 10
veri(4) = 5
veri(5) = 5
veri(6) = 5
veri(7) = 5
veri(8) = 5

If kendisi <> "" Then
deger1 = 50
End If
If medenihali = "EVLİ" Then
deger2 = 10
End If

For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next

cocuk = deger1 + deger2 + deger3
If deger1 + deger2 + deger3 > 100 Then cocuk = 100

End Function

Madde 32 – (Mülga: 4/12/1985 - 3239/138 md.; Yeniden düzenleme: 28/3/2007-5615/2 md.)
Ücretin gerçek usûlde vergilendirilmesinde asgarî geçim indirimi uygulanır.
Asgarî geçim indirimi; ücretin elde edildiği takvim yılı başında geçerli olan ve sanayi kesiminde çalışan 16 yaşından büyük işçiler için uygulanan asgarî ücretin yıllık brüt tutarının; mükellefin kendisi için % 50’si, çalışmayan ve herhangi bir geliri olmayan eşi için % 10’u, çocukların her biri için ayrı ayrı olmak üzere; ilk iki çocuk için % 7,5, üçüncü çocuk için %10, diğer çocuklar için % 5’idir. Gelirin kısmî döneme ait olması halinde, ay kesirleri tam ay sayılmak suretiyle bu süreye isabet eden indirim tutarları esas alınır. Asgarî geçim indirimi, bu fıkraya göre belirlenen tutar ile 103 üncü maddedeki gelir vergisi tarifesinin birinci gelir dilimine uygulanan oranın çarpılmasıyla bulunan tutarın, hesaplanan vergiden mahsup edilmesi suretiyle uygulanır. Mahsup edilecek kısmın fazla olması halinde iade yapılmaz. (5)

 

[sirkülasyon]

Halit abi yeni kodu ekledim. 4. mesajdaki koduda arşivime aldım.
Hakkını helal ediniz.

 

[YUSUF44]

Üstad;
1 - Eþ otomatik olarak hesaba dahil ediliyor. (Bekar - Evli ayrýmý yoktur)
2 - Evli Eþi Çalýþan kýsmý Eþe otomatik 10 verdiði için hatalý

Düzenleme imkaný varsa rica etsem düzeltebilir miyiz?

Bordroda
N7 Sütununda Medeni Durum = "Bekar, Evli Eþi Çalýþan, Evli"
O7 sütununda Çocuk Durumu = Ýlk iki Çocuk
P7 sütununda Çocuk Durumu = Ýkiden fazla Çocuk

Her ne kadar üstadýmýz sorunuzu çözmüþ olsa da açýklamak istiyorum: ilk mesajýnýzda eþ durumuyla ilgili daha doðrusu dosya yapýnýzla ilgili bir açýklama yoktu. Ben de bildiðim kadarýyla çözmeye çalýþtým. Orda da belirttiðim gibi eþ çalýþmýyorsa 1 yazmanýz ve çocuðu da toplam olarak belirtmeniz yeterli. =cocuk(1;3) yaptýðýnýzda 50+10+7,5+7,5+10 olarak hesap yapýyor ve 85 buluyor.

Tabi sizin dosyanýza göre þöyle de yapýlabilir:

=cocuk(EÐER(N7="EVLÝ";1;0);O7+P7)

Halit üstadým, bildiðim kadarýyla asgari geçimde iki sýnýr var ama oranla deðil tutarla ilgili:

1- aylýk asgari geçim tutarý hesaplanan/kesilen gelir vergisinden daha yüksek olamaz.

2- yýllýk asgari geçim tutarý asgari ücretin yýllýk vergisinden daha fazla olamaz.