wsh VBS script de calcul de salaire net

bonjour,
je suis a la recherche d'un emploi en informatique et j'ai eu quelques propositions, mais concernant les salaires, je pedale entre net et brut.
j'ai donc fais un nano script ou je rentre un salaire brut ( utilisé par les employeurs) que je multiplie par 0.774 pour avoir le salaire net.
ca merdouille lorsque je met rien ( je voudrais que ca quitte) et si vous avez des idées d'ameliorations, je suis preneur ( salaire brut annuel, salaire net annuel ,...)

Code:

---

1 2 3 4 5 6

do while true dim a a=InputBox("entrer le salaire brut:",1) if a=0 or a="" or a = 1 or a=2 then exit do MsgBox("le salaire net est:"& a*0.774) loop

---

cordialement
FC

bonjour,

plutôt quelque chose comme ça (en évitant notamment de redéclarer la variable à chaque itération...):

Code:

---

1 2 3 4 5 6

dim a do while true a=InputBox("entrer le salaire brut:","Mon salaire que j'ai à moi tout seul") If a="" or Not IsNumeric(a) Then exit Do MsgBox("le salaire net est:"& a*0.774) loop

---

ps: j'espère que tes futurs employeurs ne fréquentent pas le site :aie:

Citation:

---

Envoyé par omen999

plutôt quelque chose comme ça (en évitant notamment de redéclarer la variable à chaque itération...):

---

bonjour,
effectivement en sortant la declaration de variable de la boucle, c'est mieux...

Citation:

---

Envoyé par omen999

ps: j'espère que tes futurs employeurs ne fréquentent pas le site :aie:

---

:mouarf:

le script revu en suivant tes conseils

Code:

---

1 2 3 4 5 6

dim a do while true a=InputBox("entrer le salaire brut mensuel:","Conversion Salaire brut/Net pour la France") If a="" or Not IsNumeric(a) Then exit Do a=MsgBox("salaire mensuel NET:"& a*0.774 & vbcrlf & "salaire annuel NET:"& a*0.774*12 & vbcrlf & "salaire annuel BRUT:" & a*12 & vbcrlf,,"Salaire mensuel BRUT:" & a) loop

---