Procédure de calcul de l'irg (impôt sur le revenu global) je ne sais pas si c'est international ou pas, celle-là s'applique

Commenter

Contenu du snippet

elle calcul le salaire imposable, le mettre à l'echelle ,calcul l'impot mensuel, calcul l'abattement selon marié divorcé ou célibataire et enfin l'IRG

Source / Exemple : 


{c'est juste la partie essentielle de mon logiciel de gestion de paie}
Sal_Imp:=Gain - DM1.DataSMain.DataSet.FieldByName('RET_SS').AsCurrency;

                  {La mise à l'échelle du salaire imposable}

                  Sal_Imp := Sal_Imp * 12;

                  if ((Sal_Imp >= 0) and (Sal_Imp <=120000)) then begin
                                                                       Taux := 0;
                                                                       Impan := 0;
                                                                       Trs :=  120000;
                                                                       end;
                  if ((Sal_Imp > 120000) and (Sal_Imp <=360000)) then begin
                                                                       Taux := 20;
                                                                       Impan := 48000;
                                                                       Trs :=  360000;
                                                                       end;
                  if ((Sal_Imp > 360000) and (Sal_Imp <=1440000)) then begin
                                                                       Taux := 30;
                                                                       Impan := 48000;
                                                                       Trs :=  360000;
                                                                       end;
                  if ((Sal_Imp > 1440000)and (Sal_Imp <=9999999)) then begin
                                                                       Taux := 35;
                                                                       Impan := 372000;
                                                                       Trs := 1440000
                                                                       end;
                  if Sal_Imp > 9999999 then begin
                                            Taux := 35;
                                            Impan := 3367999.65;
                                            Trs := 9999999;
                                            end;

                  Impota := ((Sal_Imp - Trs)*Taux/100)+ Impan;

                  Impm := Impota / 12;

                  Abtt := (40*Impm/100);
                  if Abtt < 1000 then Abtt := 1000;
                  if Abtt > 1500 then Abtt := 1500;

                  IRG := Impm - Abtt;
                  if IRG < 0 then IRG := 0;

                  IRG := (IRG*10)+0.0001;
                  IRG := Trunc(IRG);
                  IRG := IRG / 10;
                  IRG := Trunc(IRG);

Conclusion :


laissez un commentaire pour de plus amples information.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (medelias)