Skip to main content

AccessTr.neT


Gelir Vergisi hesaplama

Gelir Vergisi hesaplama

#1
Gelir Vergisi hesaplama koduna ihtiyacım var
Cevapla
#2
ç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
Cevapla
#3
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)
.rar taruz_ÜcretliGelirVergiHesap.rar (Dosya Boyutu: 32,62 KB | İndirme Sayısı: 59)
Son Düzenleme: 15/01/2012, 14:04, Düzenleyen: simendifer.
Cevapla
#4
EMEĞİNİZE SAĞLIK GEÇMİŞLERİNİZE RAHMET OLSUN
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task