Code VBA?
Résolu
sofian_ovsky
Messages postés
17
Statut
Membre
-
sofian_ovsky Messages postés 17 Statut Membre -
sofian_ovsky Messages postés 17 Statut Membre -
Bonjour,
je cherche un code VBA pour le calcule de l'IRG (l’impôt sur le revenue global)
sur le site officiel du ministère, ils ont publier un code, mais je ne vois pas comment l'utiliser (je suis nul en VBA, ou du moins, ça ne ressemble pas un code VBA)
PARAMETERS SOUMIS,RTS1,abat
SET DECIMAL TO 1
STORE 0 TO TC,PAS,R1
SELECT 5
USE TAB07
BRTS=SOUMIS*12
DO WHILE .NOT.EOF()
IF BRTS<=TRS
EXIT
ELSE
SKIP +1
ENDIF
ENDDO
STORE TAX TO TAUX
SKIP -1
STORE TRS TO TB
STORE IMPAN TO TD
N=BRTS-TB
IMPOTA=(N*TAUX/100)+TD
IMPM=IMPOTA/12
ABAT=(40*IMPM/100)
IF ABAT<1000
ABAT=1000
ENDIF
IF ABAT>1500
ABAT=1500
endif
RET=IMPM-ABAT
IF RET<0
RET=0
endif
INFERIEURE
SET DECIMALS TO 4
RTS1=(RET*10) + 0.0001
RTS1=INT(RTS1)
RTS1=RTS1/10
SET DECIMALS TO 2
RETURN
meric à vous tous
je cherche un code VBA pour le calcule de l'IRG (l’impôt sur le revenue global)
sur le site officiel du ministère, ils ont publier un code, mais je ne vois pas comment l'utiliser (je suis nul en VBA, ou du moins, ça ne ressemble pas un code VBA)
PARAMETERS SOUMIS,RTS1,abat
SET DECIMAL TO 1
STORE 0 TO TC,PAS,R1
SELECT 5
USE TAB07
BRTS=SOUMIS*12
- CALCUL DE L'IMPOT ANNUEL
DO WHILE .NOT.EOF()
IF BRTS<=TRS
EXIT
ELSE
SKIP +1
ENDIF
ENDDO
STORE TAX TO TAUX
SKIP -1
STORE TRS TO TB
STORE IMPAN TO TD
N=BRTS-TB
IMPOTA=(N*TAUX/100)+TD
- CALCUL DU CREDIT D'IMPOT MENSUEL
IMPM=IMPOTA/12
ABAT=(40*IMPM/100)
IF ABAT<1000
ABAT=1000
ENDIF
IF ABAT>1500
ABAT=1500
endif
RET=IMPM-ABAT
IF RET<0
RET=0
endif
- IRG ARRONDIE A LA DIZAINE DE CENTIME INFERIEURE
- RTS1=(RET*10)
- RTS1=INT(RTS1)
- RTS1=RTS1/10
- IRG ARRONDIE A LA DIZAINE DE CENTIME
INFERIEURE
SET DECIMALS TO 4
RTS1=(RET*10) + 0.0001
RTS1=INT(RTS1)
RTS1=RTS1/10
SET DECIMALS TO 2
RETURN
meric à vous tous
A voir également:
- Code VBA?
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages