Discussion :

[sabri01]

petite fonction pour irg 2008 en Algerie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function irg(ByVal montant)
 
 Dim impos As Double
 impos = 0#
 irg = 0#
 montant = Int(montant)
 
 
 
    If ((montant >= 10001) And (montant <= 30000)) Then impos = (montant - _
        10000) * 0.2
    If ((montant >= 30001) And (montant <= 120000)) Then impos = 4000 + _
        (montant - 30000) * 0.3
    If montant >= 120001 Then impos = 31000 + _
        (montant - 120000) * 0.35
 
      abat = (40 * impos / 100)
      If abat < 1000 Then abat = 1000
      If abat > 1500 Then abat = 1500
     impos = impos - abat
 
   impos = (impos * 10) + 0.0001
   impos = impos / 10
   impos = Int(impos)
    irg = impos
 
 End Function

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Peux-tu nous expliquer à quoi correspond irg 2008 en Algérie.

Car les autres membres francophones de DVP risque de ne pas comprendre (moi aussi )



Starec

[AlainTech]

Impôt sur le revenu global

[sabri01]

cette fonction sert a calculer l'impot sur le revenu global (pour les salaries la retenue se fait à la source sur le bulletin de salaire ) pour les autres revenus le calcul se fait au niveau du fisc .
excusez moi
Je n'ai pas de formation en informatique .
Je suis comptable de formation et pour ne pas supplier le GRAND (INFORMATICIEN) qui n'a jamais de temps pour le faire ,je me débrouille comme je peux