AccessTr.neT

Tam Versiyon: Gelir Vergisi hesaplama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Gelir Vergisi hesaplama koduna ihtiyacım var
ç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
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-gel...ir+vergisi
sayın assenucler abimizede teşekkür ederim


Ek Dosyalar
 taruz_ÜcretliGelirVergiHesap.rar(32.62 KB)
EMEĞİNİZE SAĞLIK GEÇMİŞLERİNİZE RAHMET OLSUN