bousaid

IRG 2020 VBA 2

Aug 2nd, 2021
860
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function IRG_N(soumis)
  2.  
  3. If soumis > 30000 Then
  4. soumis = (Int(soumis / 10)) * 10
  5. Dim TRS(5) As Variant
  6. TRS(1) = 0
  7. TRS(2) = 120000
  8. TRS(3) = 360000
  9. TRS(4) = 1440000
  10. TRS(5) = 9999999
  11. Dim Tax(5) As Variant
  12. Tax(1) = 0
  13. Tax(2) = 0
  14. Tax(3) = 20
  15. Tax(4) = 30
  16. Tax(5) = 35
  17. Dim Impan(5) As Variant
  18. Impan(1) = 0#
  19. Impan(2) = 0#
  20. Impan(3) = 48000#
  21. Impan(4) = 372000#
  22. Impan(5) = 3367999.65
  23.  
  24. brts = soumis * 12
  25. ill = 1
  26. Do While ill <= 5
  27.  If brts <= TRS(ill) Then Exit Do
  28.  ill = ill + 1
  29. Loop
  30. taux = Tax(ill)
  31. ill = ill - 1
  32. tb = TRS(ill)
  33. td = Impan(ill)
  34. n = brts - tb
  35. impota = (n * taux / 100) + td
  36. impm = impota / 12
  37. abat = (40 * impm / 100)
  38. If abat < 1000 Then abat = 1000
  39. If abat > 1500 Then abat = 1500
  40. ret = impm - abat
  41. If ret < 0 Then ret = 0
  42. RTS1 = (ret * 10)
  43. RTS1 = Int(RTS1)
  44. RTS1 = RTS1 / 10
  45. IRG_N = RTS1
  46. End If
  47. If (soumis > 30000) And (soumis <= 35000) Then
  48. IRG_N = ((RTS1 * 8) / 3) - (20000 / 3)
  49. End If
  50.  
  51. End Function
RAW Paste Data