AccessTr.neT

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