Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
15/01/2012 01:54
Konu Sahibi
EGE35_m
Yorumlar
3
Okunma
2534
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

EGE35_m


YE.... ÖZ....
 51
 10
 3
 21/06/2009
0
 İzmir
 
 Ofis 2010
 03/10/2018,16:48
Gelir Vergisi hesaplama koduna ihtiyacım var


EGE35_m, 21-06-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

WiniFred


 38
 125
 30
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 26/04/2018,22:27
ç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



Kullanici Avatari

simendifer


EK.... ÇE....
 60
 934
 92
 30/10/2008
327
 Çankırı
 emekli
 Ofis 2007
 Dün,22:04
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)



Kullanici Avatari

EGE35_m


YE.... ÖZ....
 51
 10
 3
 21/06/2009
0
 İzmir
 
 Ofis 2010
 03/10/2018,16:48
EMEĞİNİZE SAĞLIK GEÇMİŞLERİNİZE RAHMET OLSUN


EGE35_m, 21-06-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  maliyet hesaplama çalışması yenginoglu 4 3.253 15/08/2018, 06:47
Son Yorum: yourmad
  Gelir Gider Uygulaması metınaycıcek 38 4.957 08/03/2018, 00:05
Son Yorum: iyitimsah
Information Gelir-Gider Programı bayFARUK 116 59.602 20/07/2017, 01:30
Son Yorum: byazenya
  Ücretliler Gelir Vergisi assenucler 3 2.227 25/01/2017, 14:56
Son Yorum: atoz112
Smile Yeni Site/Apartman Aidat Gelir/Gider Takip Programı gogoli01 47 25.227 03/01/2017, 18:22
Son Yorum: assenucler

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444