Ücretlilerde Gelir Vergisi

[balca]

Arkadaşlar merhaba;

Ekte bulunan dosyada 2006 yılı ile ilgili Gelir Vergisi çalışmam var. Fonksiyonda biyerlerde hata var ama bulamadım.

 

[neo]

:hey: Merhaba

Sn balca % sel olarak sonuçlar doğru Þu yazdığınız formülde
=C18/B18*100 yerine =(C18/B18)*100 parantez kullanmamız gerekir diye düşünüyorum

 

[balca]

Sayın Neo;
Ã?rnek Dosyadada görüldüğü üzere c19 hücresindeki verileri konuşursak
Kümülatif Vergi Matrahı 6.000
Cari Vergi Matrahı 1.000
Fonksiyon ile çıkan sonuç 500 olmuş Yani vergi oranı %50 olmuş oysa ki;

Burada ilk dilim 6.600 olduğuna göre öncelikle Cari aydaki 1.000 YTL nin 600'ü %15 den, Geriye Kalan 400'ü ise %20 den vergilendirilmeli yani sonuçta çıkan rakam 170 olmalıydı. =170/1000*100 dediğimdede parçalı girdiği için çıkan sonuç %17 olmalı.

 

[neo]

:hey:

Sn balca
dosyanızda fonksiyonlarla bazı düzenlemeler yaptım umarım size faydalı olmuştur ..


2005 yılında elde edilecek gelirler için uygulanan gelir vergisi tarifeleri
Gelir Dilimi Vergi Oranı(%)
6,600.00 - liraya kadar 15
15,000.00 - liranın 6,600.00 - lirası için 990 20
30,000.00 - liranın 15,000.00 - lirası için 2,670 25
78,000.00 - liranın 30,000.00 - lirası için 6,420 30
78,000.00 - liranın 78,000.00 - lirası için 20,820 35

 

[dost]

Merhaba,

Function VERGİ_HES2006(KümlatifMatrah As Double, VergiMatrahi As Double)
    If KümlatifMatrah + VergiMatrahi <= 6600# Then VERGİ_HES2006 = 0.15 * VergiMatrahi
    If KümlatifMatrah + VergiMatrahi >= 6601# And KümlatifMatrah + VergiMatrahi <= 15000# Then VERGİ_HES2006 = 0.2 * ((KümlatifMatrah + VergiMatrahi) - 6600#) + 990#
    If KümlatifMatrah + VergiMatrahi >= 15001# And KümlatifMatrah + VergiMatrahi <= 30000# Then VERGİ_HES2006 = 0.25 * ((KümlatifMatrah + VergiMatrahi) - 15000#) + 2670#
    If KümlatifMatrah + VergiMatrahi >= 30001# And KümlatifMatrah + VergiMatrahi <= 78000# Then VERGİ_HES2006 = 0.3 * ((KümlatifMatrah + VergiMatrahi) - 30000#) + 7410#
    If KümlatifMatrah + VergiMatrahi >= 78001# Then VERGİ_HES2006 = 0.35 * ((KümlatifMatrah + Matrah) - 78000#) + 21810#
End Function

 

[balca]

Arkadaşlar;
Maalesef önerdikleriniz hatalı sonuçlar veriyor. Ekte açıklamalar ile birlikte bir dosya daha ilave ettim.

Umarım anlatabilmişimdir...

 

[dost]

Sayın balca,

Ben sorunuzu yanlış anlamışım. O yüzden gerekli düzeltme aşağıdadır.

Function VERGİ2_HES2006(KümlatifMatrah As Double, VergiMatrahi As Double)
    If KümlatifMatrah + VergiMatrahi <= 6600# Then VERGİ2_HES2006 = 0.15 * VergiMatrahi: Exit Function
    If KümlatifMatrah + VergiMatrahi >= 6601# And KümlatifMatrah + VergiMatrahi <= 15000# Then
        ilkoran = 0.15: ikincioran = 0.2: sontutar = 6600#: GoTo hesapla
    ElseIf KümlatifMatrah + VergiMatrahi >= 15001# And KümlatifMatrah + VergiMatrahi <= 30000# Then
        ilkoran = 0.2: ikincioran = 0.25: sontutar = 15000#: GoTo hesapla
    ElseIf KümlatifMatrah + VergiMatrahi >= 30001# And KümlatifMatrah + VergiMatrahi <= 78000# Then
        ilkoran = 0.25: ikincioran = 0.3: sontutar = 30000#: GoTo hesapla
    ElseIf KümlatifMatrah + VergiMatrahi >= 78001# Then
        ilkoran = 0.3: ikincioran = 0.3: sontutar = 78000#: GoTo hesapla
    End If
hesapla:
    If KümlatifMatrah <= sontutar Then
        VERGİ2_HES2006 = ilkoran * ((sontutar - KümlatifMatrah)) + ikincioran * (((KümlatifMatrah + VergiMatrahi) - sontutar))
    Else
        VERGİ2_HES2006 = ikincioran * VergiMatrahi
    End If
End Function

 

[balca]

Sayin Dost
İşte bu ...çok teşekkür ederim. :hihoho: :yazici:

 

[otufan03]

Arkadaşlar yukarda yazılı kodu yaptığımız çalışmalara nasıl uygulayacağız,biraz açıklarmısınız.

 

[dost]

Merhaba,

=VERGİ2_HES2006 yazdıktan sonra,
f* e basarsanız KümlatifMatrah ve VergiMatrahi seçeneği çıkacaktır.
Bu alanlara istediğiniz hücreleri seçebilirsiniz.

=VERGİ2_HES2006 (A1;A2) gibi

 

[balca]

Tabii ki;

Þöyle yapacaksınız herhangi bir boş excel çalışma kitabı açın alt+f11 yapıp boş bir modül sayfası oluşturun ve kapatın

Daha sonra excel sayfasına gelin bir hücreye küm. matrah, diğer hücreye cari vergi matrahını yazın diğer bir hücreye de fx dende bulabilirsiniz =VERGİ2_HES2006(a1;b1)

Bu kadar. Yanlız bu oranlar kesinmi onu bilemiyorum.