AccessTr.neT
Gelir Vergisi hesaplama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Gelir Vergisi hesaplama (/konu-gelir-vergisi-hesaplama.html)



Gelir Vergisi hesaplama - EGE35_m - 15/01/2012

Gelir Vergisi hesaplama koduna ihtiyacım var


Cvp: Gelir Vergisi hesaplama - WiniFred - 15/01/2012

çok önceleri excel'de hazırlamıştım. Access'te denemedim. İnceleyin, problem olursa bakarız tekrar.

    Function GelirVergisiHesapla(aylik_vergi_matrahi As Currency, toplam_vergi_matrahi As Currency) As Currency
Dim ver_dilim1 As Currency, ver_dilim2 As Currency, ver_dilim3 As Currency
Dim veror1 As Single, veror2 As Single, veror3 As Single

ver_dilim1 = 10000
ver_dilim2 = 25000
ver_dilim3 = 88000

veror1 = 0.15
veror2 = 0.2
veror3 = 0.27
veror4 = 0.35

If (aylik_vergi_matrahi + toplam_vergi_matrahi) <= ver_dilim1 Then

GelirVergisiHesapla = Round(aylik_vergi_matrahi * veror1, 2)

ElseIf (toplam_vergi_matrahi < ver_dilim1) And (aylik_vergi_matrahi + toplam_vergi_matrahi) > ver_dilim1 Then

GelirVergisiHesapla = Round(((ver_dilim1 - toplam_vergi_matrahi) * veror1) + ((aylik_vergi_matrahi - (ver_dilim1 - toplam_vergi_matrahi)) * veror2), 2)

ElseIf toplam_vergi_matrahi >= ver_dilim1 And toplam_vergi_matrahi < ver_dilim2 Then

If (toplam_vergi_matrahi + aylik_vergi_matrahi) <= ver_dilim2 Then

GelirVergisiHesapla = Round(aylik_vergi_matrahi * veror2, 2)

ElseIf (toplam_vergi_matrahi < ver_dilim2) And (aylik_vergi_matrahi + toplam_vergi_matrahi) > ver_dilim2 Then

GelirVergisiHesapla = Round(((ver_dilim2 - toplam_vergi_matrahi) * veror2) + ((aylik_vergi_matrahi - (ver_dilim2 - toplam_vergi_matrahi)) * veror3), 2)

End If

ElseIf toplam_vergi_matrahi >= ver_dilim2 And toplam_vergi_matrahi < ver_dilim3 Then


If (toplam_vergi_matrahi + aylik_vergi_matrahi) <= ver_dilim3 Then

GelirVergisiHesapla = Round(aylik_vergi_matrahi * veror3, 2)

ElseIf (toplam_vergi_matrahi < ver_dilim3) And (aylik_vergi_matrahi + toplam_vergi_matrahi) > ver_dilim3 Then

GelirVergisiHesapla = Round(((ver_dilim3 - toplam_vergi_matrahi) * veror3) + ((aylik_vergi_matrahi - (ver_dilim3 - toplam_vergi_matrahi)) * veror4), 2)

End If

ElseIf toplam_vergi_matrahi >= ver_dilim3 Then

GelirVergisiHesapla = Round(aylik_vergi_matrahi * veror4, 2)

End If

End Function



Cvp: Gelir Vergisi Hesaplama - simendifer - 15/01/2012

sevgili kardeşim sayın taruz hocamızın hazırladıgı bir program var alttaki link te incelemini tavsiye ederim kolay gelsin
https://accesstr.net/konu-ucretliler-gelir-vergisi.html?highlight=gelir+vergisi
sayın assenucler abimizede teşekkür ederim


Ek Dosyalar
 taruz_ÜcretliGelirVergiHesap.rar(32.62 KB)



Cvp: Gelir Vergisi hesaplama - EGE35_m - 16/01/2012

EMEĞİNİZE SAĞLIK GEÇMİŞLERİNİZE RAHMET OLSUN