Rechercher
Sujets similaires
Derniers sujets
c'est ce qu'un informaticien sait faire
2 participants
Page 1 sur 1
c'est ce qu'un informaticien sait faire
- {c'est juste la partie essentielle de mon logiciel de gestion de paie}
- Sal_Imp:=Gain - DM1.DataSMain.DataSet.FieldByName('RET_SS').AsCurrency;
</li>- {La mise à l'échelle du salaire imposable}
</li>- Sal_Imp := Sal_Imp * 12;
</li>- 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;
</li>- Impota := ((Sal_Imp - Trs)*Taux/100)+ Impan;
</li>- Impm := Impota / 12;
</li>- Abtt := (40*Impm/100);
- if Abtt < 1000 then Abtt := 1000;
- if Abtt > 1500 then Abtt := 1500;
</li>- IRG := Impm - Abtt;
- if IRG < 0 then IRG := 0;
</li>- IRG := (IRG*10)+0.0001;
- IRG := Trunc(IRG);
- IRG := IRG / 10;
- IRG := Trunc(IRG);
Larbi-EPSP- Débutant
- Messages : 50
Points : 84
Date d'inscription : 19/03/2012
Age : 52
Localisation : BP 20, THENIET EL HAD
Re: c'est ce qu'un informaticien sait faire
Mozads a écrit: vous avez quoi, desque je voit le ( ; j'ai la chair de poule, ça m'as causé un "0" dans mon premier TP, et c'est pour cette raison que j 'ai opté plutard pour le Visual Basic;
en tout cas, merci pour le programme !
Re: c'est ce qu'un informaticien sait faire
vous n'avez rien vu encore ... moi j'ai laisser la moitié de me cheveux pour acquérir le peu d'information que j'ai en matière de programmation ( Vbasic, dbase (clipper) , delphi , macro instruction, systeme, html, et assembleur
Larbi-EPSP- Débutant
- Messages : 50
Points : 84
Date d'inscription : 19/03/2012
Age : 52
Localisation : BP 20, THENIET EL HAD
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Dim 21 Juil - 1:00 par EPH SIDI ALI
» اين الله عز وجل .......
Mar 29 Jan - 22:53 par istabrak
» SOS sur bon de commande
Mer 5 Déc - 13:35 par génie riodan
» IMPOSSIBLE DE CONNECTE AU NOUVEAU FORUM !!!
Mer 5 Déc - 12:39 par eph_ainmlila
» Fiche de l etablissement
Mer 5 Déc - 12:36 par EphAokas
» la réunion du 04/12/2012 les nouveaux
Mer 5 Déc - 10:27 par HB_2
» Nouveau FORUM
Mar 4 Déc - 22:11 par EPH SIDI ALI
» Nouveau forum
Mar 4 Déc - 12:51 par HANIFA
» 3COH en monoposte
Mar 4 Déc - 12:44 par HANIFA