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
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