IRG 2020 (VBA)

' IRG 2020 Function By Boussaid Mustafa
' APC SALI 2020
Function IRG_New(moTr)

moTr = (Int(moTr / 10)) * 10

Select Case moTr
    Case 0 To 30000: IRG_New = 0
    Case 30010 To 34999: IRG_New = (moTr - 30000) * 0.8
    Case 35000 To 120000: IRG_New = 2500 + ((moTr - 30000) / 10) * 3
    Case Is > 120000: IRG_New = 29500 + ((moTr - 120000) / 10) * 3.5
End Select

End Function