Vergi dilimine göre gelir vergisini hesaplamak (makronun düzeltilmesi)

[mor45]

Function VERGİ2020(KümlatifMatrah As Double, VergiMatrahi As Double)
If KümlatifMatrah + VergiMatrahi <= 22000# Then VERGİ2007 = 0.15 * VergiMatrahi: Exit Function
If KümlatifMatrah + VergiMatrahi >= 22001# And KümlatifMatrah + VergiMatrahi <= 49000# Then
ilkoran = 0.15: ikincioran = 0.2: sontutar = 22000#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 49001# And KümlatifMatrah + VergiMatrahi <= 120000# Then
ilkoran = 0.2: ikincioran = 0.27: sontutar = 49000#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 120001# And KümlatifMatrah + VergiMatrahi <= 600000# Then
ilkoran = 0.27: ikincioran = 0.35: sontutar = 120000#: GoTo hesapla
ElseIf KümlatifMatrah + VergiMatrahi >= 600001# Then
ilkoran = 0.35: ikincioran = 0.4: sontutar = 600000#: GoTo hesapla
End If
hesapla:
If KümlatifMatrah <= sontutar Then
VERGİ2020 = ilkoran * ((sontutar - KümlatifMatrah)) + ikincioran * (((KümlatifMatrah + VergiMatrahi) - sontutar))
Else
VERGİ2020 = ikincioran * VergiMatrahi
End If
End Function

 

[Merhum İdris SERDAR]

.

Bunu Kullanabilirsiniz.

Daha anlaşılır.

Dim vergi As Double

'İ.Serdar - 14.01.2020

'Ücretliler İçin Uygulanacak 2020 Yılı Gelir Vergisi Tarifesine göre

Function GVU(matrah As Double)

Select Case matrah

    Case Is >= 600001
        vergi = 191070 + 0.4 * (matrah - 600000)
    Case Is >= 180001
        vergi = 44070 + 0.35 * (matrah - 180000)
    Case Is >= 49001
        vergi = 8700 + 0.27 * (matrah - 49000)
    Case Is >= 22001
        vergi = 3300 + 0.2 * (matrah - 22000)
    Case Is <= 22000
         vergi = matrah * 0.15
End Select

GVU = vergi

End Function


'Ücret Dışındaki Gelirler İçin Uygulanacak 2020 Yılı Gelir Vergisi Tarifesine göre

Function GVUD(matrah As Double)

Select Case matrah

    Case Is >= 600001
        vergi = 195870 + 0.4 * (matrah - 600000)
    Case Is >= 120001
        vergi = 27870 + 0.35 * (matrah - 120000)
    Case Is >= 49001
        vergi = 8700 + 0.27 * (matrah - 49000)
    Case Is >= 22001
        vergi = 3300 + 0.2 * (matrah - 22000)
    Case Is <= 22000
        vergi = 0.15 * (matrah)
End Select

GVUD = vergi

End Function

.

 

[mor45]

olmadı 2 tanemi makro var
Formülü yazacağım hücreye nasıl yazmalıyım Gelir vergisi matrahınımı yazmalıyım

 

[Merhum İdris SERDAR]

İki makro var.

GVU ücretliler için

=GVU(A1)

GVUD Ücret dışı

=GVUD(A1)

Buradaki dosyayı inceleyin.

Basit Olarak Formül ve KTF ile Gelir Vergisi Hesaplama – Excel Gurusu

.