IRG 2022 VBA

' IRG 2022 Function By Boussaid Mustafa
' APC SALI 2022
Function IRG2022_New(moTr)

Dim abat As Double

moTr = (Int(moTr / 10)) * 10
If moTr <= 30000 Then
    IRG2022_New = 0
Else
    Select Case moTr
        Case 20000 To 40000: IRG2022_New = (moTr - 20000) * 0.23
        Case 40001 To 80000: IRG2022_New = 4600 + (moTr - 40000) * 0.27
        Case 80001 To 160000: IRG2022_New = 15400 + (moTr - 80000) * 0.3
        Case 160001 To 320000: IRG2022_New = 39400 + (moTr - 160000) * 0.33
        Case Is > 320000: IRG2022_New = 92200 + (moTr - 320000) * 0.35
    End Select

    abat = IRG2022_New * 0.4
    If abat < 1000 Then abat = 1000
    If abat > 1500 Then abat = 1500
    IRG2022_New = IRG2022_New - abat

    If moTr <= 35000 Then
        IRG2022_New = Round(IRG2022_New * (137 / 51) - (27925 / 8), 1)
    End If
End If
End Function