04-05-2020, 06:09 PM
دالة تقوم بحساب ضريبة الدخل مايعرف بالIRG
بعد قرار تبون امس ربما سيكون هناك تغيير عليها
بعد قرار تبون امس ربما سيكون هناك تغيير عليها
PHP كود :
Function IRG(M:single):Single;
var
montant :Integer;
begin
montant :=Trunc(m);
montant :=montant -(montant mod 10);
If M>30000 then Result:=2500+(montant -30000)*0.3
else if (M>28750) then Result:=2250+(montant -28750)*0.2
else if (M>22500)and(M<=28750) then Result:=1500+(montant -22500)*0.12
else if (M>15000)and(M<=22500)then Result:=(montant -15000)*0.2
else Result:=0;
end;