[VBS]probleme ds comparaison de nombres

Version imprimable

Voici ma fonction pour classer ds des groupes des gens en fonction de la comparaison de leur moyenne avec celle des autres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
if consol(4)<(Left(famille5,4)- Left(SQR(ecart_type5),4)) then
              niveau(5,1)=niveau(5,1)+1
              elseif (Left(famille5,4)- Left(SQR(ecart_type5),4))<consol(4<Left(famille5,4) then
              niveau(5,2)=niveau(5,2)+1
              elseif Left(famille5,4)<consol(4)<(Left(famille5,4)+(1* Left(SQR(ecart_type5),4))) then
              niveau(5,3)=niveau(5,3)+1
              elseif (Left(famille5,4)+(1* Left(SQR(ecart_type5),4)))<consol(4)<(Left(famille5,4)+(2*Left(SQR(ecart_type5),4)))then
              niveau(5,4)=niveau(5,4)+1
end if
 
avec:
consol(4)=55
famille5=48.3
famille5-SQR(ecart_type5)=35.8
famille5+SQR(ecart_type5)=60.8

je devrais avoir niveau(5,3)=1 pourtant j'ai toujours niveau(5,2)=1
ou est mon erreur?

merci bcp

24/05/2006, 15h06
Daka
à vérifier (je suis un newbie) mais je pense que tu ne peux pas faire 2 tests en un seul if sans un and... Ce que tu fais 3 derniers tests. Pour tester si un nombre est compris entre deux valeurs, il faut faire :
Code:

1 2 if a<b and b<c then... 'si b est supérieur à a ET inférieur à c, alors...
24/05/2006, 15h29
zorba49

j'ai essayer et cela ne change rien

c'est vraiement bizarre!
j'ai, pour simplifier:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
if  consol(0)<(Left(famille1,4)-Left(SQR(ecart_type1),4)) then
              niveau(1,1)=niveau(1,1)+1
elseif (Left(famille1,4)-Left(SQR(ecart_type1),4))<consol(0) and consol(0)<Left(famille1,4) then
              niveau(1,2)=niveau(1,2)+1
end if
 
avec:
consol(0)=14
Left(famille1,4)=19.6
Left(famille1,4)-Left(SQR(ecart_type1),4)=16.75

donc je devrais avoir niveau(1,1)=1 et niveau(1,2)=""
pourtant c'est l'inverse!!!!!!!!!!!

24/05/2006, 16h00
Daka

encore un truc tout con de newbie...
consol(0) c'est un tableau ?
si oui, il me semble que le premier élément c'est consol(1), non ?
24/05/2006, 16h04
Catbull

Comment sont déclarées tes variables?

Là tu ne compares pas des nombres mais des chaines de caractères et c'est l'ordre lexicographique qui prend le dessus. Par exemple "100" < "11" est une condition qui retourne True.

Il serait bon de convertir tes données et de caster explicitement tes variables (CLng, CDbl, CStr, ...) afin de ne pas comparer des choux et des carottes.
24/05/2006, 16h07
zorba49
le prob vient de ce bout de code:
Code:

1 2 Left(famille1,4)-Left(SQR(ecart_type1),4)
car si je le remplace par 16 cela marche!
pourtant quand j'affiche le resultat de ce bout de code, j'ai bien 16,75 qui s'affiche!!!!!!!
j'y comprend rien!!
24/05/2006, 16h13
zorba49

je suis ds du vbscript et cela n'accepte pas as quand je veux definir ma variable
24/05/2006, 16h25
HPJ

J'ai l'impression que la fonction Left est utilisée pour arrondir ?! 8O
Si je comprends bien la fonction Round serait bien mieux adaptée et retournerait toujours des nombres (et pas des chaines de caractères sources d'erreur de comparaison).
24/05/2006, 16h43
zorba49

merci
j'ai réussi
Round pour ecart_type et famille et CDbl pour consol()

merci bcp!