Merhaba Arkadaşlar,

Ücretliler için Gelir vergisini hesaplarken verginin dilimleri değişmektedir. Gelir vergisini eğer komutu ile hesaplamak son derece zor bende bir fonksiyon yazdığım bu fonksiyonu sizlerle paylaşmak istiyorum.
Fonksiyon kullanıcıdan 2 tane parametre istiyor.
1.parametre Kümülatif vergi matrahı
2.parametre verginin hesaplanacağı matrah

Saygılarımla..

Function Vergi(KMatrah As Double, VMatrah As Double) As Double
Vergi1 = 0
Vergi2 = 0
Vergi = 0
Sor = 0

TMatrah = KMatrah + VMatrah

If TMatrah < 8700 Then
Vergi1 = VMatrah * 15 / 100

ElseIf TMatrah >= 8700 And TMatrah < 22000 Then
Sor = (VMatrah - (TMatrah - 8700))
If Sor > 0 Then
Vergi1 = (TMatrah - 8700) * 20 / 100
Vergi2 = Sor * 15 / 100
Else:
Vergi1 = VMatrah * 20 / 100
Vergi2 = 0
End If


ElseIf TMatrah >= 22000 And TMatrah < 50000 Then
Sor = (VMatrah - (TMatrah - 22000))
If Sor > 0 Then
Vergi1 = (TMatrah - 22000) * 27 / 100
Vergi2 = Sor * 20 / 100
Else:
Vergi1 = VMatrah * 27 / 100
Vergi2 = 0
End If


ElseIf TMatrah >= 50000 Then
Sor = (VMatrah - (TMatrah - 50000))
If Sor > 0 Then
Vergi1 = (TMatrah - 50000) * 35 / 100
Vergi2 = Sor * 27 / 100
Else:
Vergi1 = VMatrah * 35 / 100
Vergi2 = 0
End If
End If

Vergi = Vergi1 + Vergi2

End Function

Çok teşekkürler sayın metinse..

Çok faydalı bir kod. Bunu Kod Bankasına aktardım.. Sakıncası yoktur umarım.

Selamlar..

http://www.kodgtb.taruz.net/

Sayın metinse;

Paylaşımınız için sağolun.

Rica etsem, bunu bir örnek dosyaya ekleyebilir misiniz?

Teşekkürler.

Sayın Assenucler,
Örnek uygulamayı ekledim.
Fonksiyon modülün içinde.
Vergi Sorgusunu çalıştırıp sonuç görebilirsiniz.

Ayrıca Sayın Adnan ve Zeki Gürsoy da bu konuda çok güzel örnekleri var linkini aşağıya ekledim.

ACCESS FORUMLARI / ACCESS SORULARI / ACCESS'LE İLGİLİ GENEL SORULAR / Gelir vergisi fonksiyonu

İyi Çalışmalar.

Sayın Metinse;

Yakın ilginiz, kısa süredeki örnek dosyalı yanıtınız için sonsuz teşekkürler.

Her şey gönlünüzce olsun.

Selam ve sevgiler.

arkadaşlar ülkemizde yıl sonlarında rakam ve vergi oranları değişmekte ben bir örnek yükliyimde oranları formadan aldıralım yapabilirmiyiztbl vergiler veya frm vergilerden bunları n değişikliği olunca güncellemeleri burdan yaptırabiliriz ben denedim fakat yapamadım. 2003 olmadığı için 2007 yüklemek zorunda kaldım