PROCEDURE IRG 2020 (Windev)

// IRG 2020 PROCEDURE By Boussaid Mustafa
// APC SALI 2020
PROCEDURE irg_2020(i is currency)

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

SWITCH i
	CASE < 30000: cyIrgn = 0
	CASE 30000 TO 35000: cyIrgn = (p - 30000) * 0.8
	CASE 35000 TO 120000: cyIrgn = 2500 + ((p - 30000) / 10) * 3
	OTHER CASE: cyIrgn = 29500 + ((p - 120000) / 10) * 3.5
END

RESULT  IntegerPart(cyIrgn)