bousaid

PROCEDURE IRG 2020 (Windev)

May 9th, 2020 (edited)
625
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // IRG 2020 PROCEDURE By Boussaid Mustafa
  2. // APC SALI 2020
  3. PROCEDURE irg_2020(i is currency)
  4.  
  5. cyIrgn is currency
  6. p is currency = IntegerPart((IntegerPart(i))/10)*10
  7.  
  8. SWITCH i
  9. CASE < 30000: cyIrgn = 0
  10. CASE 30000 TO 35000: cyIrgn = (p - 30000) * 0.8
  11. CASE 35000 TO 120000: cyIrgn = 2500 + ((p - 30000) / 10) * 3
  12. OTHER CASE: cyIrgn = 29500 + ((p - 120000) / 10) * 3.5
  13. END
  14.  
  15. RESULT IntegerPart(cyIrgn)
RAW Paste Data