// IRG 2022 PROCEDURE By Boussaid Mustafa
// APC SALI 2022
PROCEDURE irg2022(i)

cyIrgn is currency
p is currency = IntegerPart((IntegerPart(i))/10)*10

IF (i <= 30000 ) THEN
cyIrgn = 0
ELSE

SWITCH i
CASE 20000 TO 40000 : cyIrgn = (p - 20000) * 0.23
CASE 40000 TO 80000: cyIrgn = 4600 + (p - 40000) * 0.27
CASE 80000 TO 160000: cyIrgn = 15400 + (p - 80000) * 0.3
CASE 160000 TO 320000: cyIrgn = 39400 + (p - 160000) * 0.33
OTHER CASE: cyIrgn = 92200 + (p - 320000) * 0.35
END

Abat is real = (0.4 * cyIrgn)
IF Abat < 1000 THEN Abat = 1000
IF Abat > 1500 THEN Abat = 1500
cyIrgn = cyIrgn - Abat

IF i <= 35000 THEN
cyIrgn = Round(cyIrgn * (137/51)-(27925/8),1)
END
END
RESULT cyIrgn