bousaid

IRG 2020 (VBA)

May 9th, 2020 (edited)
1,658
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' IRG 2020 Function By Boussaid Mustafa
  2. ' APC SALI 2020
  3. Function IRG_New(moTr)
  4.  
  5. moTr = (Int(moTr / 10)) * 10
  6.  
  7. Select Case moTr
  8.     Case 0 To 30000: IRG_New = 0
  9.     Case 30010 To 34999: IRG_New = (moTr - 30000) * 0.8
  10.     Case 35000 To 120000: IRG_New = 2500 + ((moTr - 30000) / 10) * 3
  11.     Case Is > 120000: IRG_New = 29500 + ((moTr - 120000) / 10) * 3.5
  12. End Select
  13.  
  14. End Function
RAW Paste Data