Gelir Vergisi hesaplama
Tarih
15/01/2012 01:54
Konu Sahibi
EGE35_m
Yorumlar
3
Okunma
2109
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
EGE35_m
Üye
Kullanici Avatari
Üye
Y.... Ö....
10
3
21/06/2009
0
İzmir
Ofis 2010
20/11/2016,23:26
Gelir Vergisi hesaplama koduna ihtiyacım var
EGE35_m, 21-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

WiniFred
Aktif Üye
Kullanici Avatari
Aktif Üye
121
25/09/2011
11
Zonguldak
-
01/02/2017,21:51
Sponsor Reklam
çok önceleri excel'de hazırlamıştım. Access'te denemedim. İnceleyin, problem olursa bakarız tekrar.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
    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

simendifer

Kullanici Avatari
Onursal
E.... Ç....
887
30/10/2008
322
Çankırı
emekli
Ofis 2007
Bugün,00:00
sevgili kardeşim sayın taruz hocamızın hazırladıgı bir program var alttaki link te incelemini tavsiye ederim kolay gelsin
https://www.accesstr.net/konu-ucretliler...ir+vergisi
sayın assenucler abimizede teşekkür ederim
Ek Dosyalar
taruz_ÜcretliGelirVergiHesap.rar
[32.62 KB]
Cevapla

EGE35_m
Üye
Kullanici Avatari
Üye
Y.... Ö....
10
3
21/06/2009
0
İzmir
Ofis 2010
20/11/2016,23:26
Sponsor Reklam
EMEĞİNİZE SAĞLIK GEÇMİŞLERİNİZE RAHMET OLSUN
EGE35_m, 21-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Information Gelir-Gider Programı bayFARUK 115 51.532 02/05/2017, 00:18 huzun_bulutu
  Gelir Gider Uygulaması metınaycıcek 11 774 23/03/2017, 15:10 metınaycıcek
  Ücretliler Gelir Vergisi assenucler 3 1.782 25/01/2017, 14:56 atoz112
Smile Yeni Site/Apartman Aidat Gelir/Gider Takip Programı gogoli01 47 19.936 03/01/2017, 18:22 assenucler
  ÖZEL ( ÜCRETLİ ) NAKİL HESAPLAMA PROGRAMI mntf02 3 757 29/12/2015, 17:16 mntf02


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status