الرئيسية
CJ = Round(MTTImposable, 2) SI = Int(CJ / 10) * 10 If (10000 < SI) And (SI <= 30000) Then IB = (SI - 10000) * 0.2 If (30000 < SI) And (SI <= 120000) Then IB=(4000+(SI-30000)*0.3) If (SI > 120000) Then IB=(31000+(SI-120000)*0.35) AB=IB*0.4 if (IB*0.4<1000) then AB=1000 elseif (IB*0.4>1500) then AB=1500 end if if IB-AB<0 then IRG2008 = 0 else IRG2008=Round((IB-AB),2) end if if (SI<=30000) then IRG=0 elseif (SI>30000 AND SI<=35000) then IRG=(SI-30000)*0.80 else IRG=IRG2008 end if if tauxhand<>0 then if (SI>=30000) and (SI<=40000) then IRG=(SI-30000)*0.50 end if
