دالة رائعة لحساب الضريبة Irg في إكسل

بسم الله الرحمن الرحيم 

السلام عليكم

دالة رائعة لحساب الضريبة في الإكسل IRG دون الرجوع كل مرة للجدول المضني أقدمها لكم مفتوحة المصدر
الدالة خاصة بالحساب الجديد 2008

 [FONT=Times New Roman]Function IRG2008(soumis)[/SIZE][/B][/CENTER]  
 [B][SIZE=5]  
 [CENTER]soumis = (Int(soumis / 10)) * 10  
 Dim TRS(5) As Variant  
 TRS(1) = 0  
 TRS(2) = 120000  
 TRS(3) = 360000  
 TRS(4) = 1440000  
 TRS(5) = 9999999  
 Dim Tax(5) As Variant  
 Tax(1) = 0  
 Tax(2) = 0  
 Tax(3) = 20  
 Tax(4) = 30  
 Tax(5) = 35  
 Dim Impan(5) As Variant  
 Impan(1) = 0#  
 Impan(2) = 0#  
 Impan(3) = 48000#  
 Impan(4) = 372000#  
 Impan(5) = 3367999.65  
 brts = soumis * 12  
 ill = 1  
 Do While ill <= 5  
  If brts <= TRS(ill) Then Exit Do  
  ill = ill + 1  
 Loop  
 taux = Tax(ill)  
 ill = ill - 1  
 tb = TRS(ill)  
 td = Impan(ill)  
 n = brts - tb  
 impota = (n * taux / 100) + td  
 impm = impota / 12  
 abat = (40 * impm / 100)  
 If abat < 1000 Then abat = 1000  
 If abat > 1500 Then abat = 1500  
 ret = impm - abat  
 If ret < 0 Then ret = 0  
 RTS1 = (ret * 10)  
 RTS1 = Int(RTS1)  
 RTS1 = RTS1 / 10  
 IRG2008 = RTS1 / 2  
 End Function[/FONT]  
 ​