Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/01/2012 01:54
Konu Sahibi
EGE35_m
Yorumlar
3
Okunma
2323
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
-
25/06/2017,15:47
ç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
Altın Üye
E.... Ç....
892
30/10/2008
324
Çankırı
emekli
Ofis 2007
Bugün,15:03
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
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
  Gelir Gider Uygulaması metınaycıcek 25 2.405 31/07/2017, 23:34 metınaycıcek
Information Gelir-Gider Programı bayFARUK 116 55.680 20/07/2017, 01:30 byazenya
  Ücretliler Gelir Vergisi assenucler 3 2.008 25/01/2017, 14:56 atoz112
Smile Yeni Site/Apartman Aidat Gelir/Gider Takip Programı gogoli01 47 22.325 03/01/2017, 18:22 assenucler
  ÖZEL ( ÜCRETLİ ) NAKİL HESAPLAMA PROGRAMI mntf02 3 956 29/12/2015, 17:16 mntf02

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.