Comparaison entre deux variables

[delavega]

Bonjour,

J'essaye de comparer deux valeurs numérique contenues dans deux variables :

Code :

1
2
3
4
 
if (prix(y) < montant) Then
Response.write "Ce montant est inférieur à " & montant
end if

mais ça marche pas

merci

[KiLVaiDeN]

Salut,

prix(y) est une variable ? Je ne comprend pas trop, ça ressemble plus à un appel de fonction..

Ca te retourne bien un entier ?

A+

[delavega]

pour mieux comprendre :

Code :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
If Request("action") = "calcul" Then
sql = "SELECT * FROM baremes"
Set prod = Server.CreateObject("ADODB.Recordset")
prod.Open sql, conn, 3, 3
'
dim prix(20)
dim x
'
x = 1
'
Response.write "Montant = " & Request("montant") & "<BR>"
montant = Request("montant")
'
if not(prod.eof) then
DO WHILE NOT prod.EOF
'
prix(x) = prod.fields("tranche1")
x = x + 1
'
prod.movenext
loop
'
End if
'
y = 1
x = x - 1
'
Response.write "Le nombre de record est de : " & x & "<BR>"
for i = 1 to x
 
Response.write "-----------------------------------------------" & "<BR>"
Response.write "Le motant dans la boucle est égal à : " & prix(y) & "<BR>"
if (prix(y) < montant) Then
'ElseIf (heure < 18) Then
Response.write "<B>" & "Ce montant est inférieur à " & montant & "</B>" & "<BR>"
Response.write "-----------------------------------------------" & "<BR>"
End if
'
y = y + 1
next
'
End if

merci

[pc75]

Bonjour,

Comme les variables ne sont pas typées en VbScript, je tenterai ça :

Code :

1
2
 
if cDbl(prix(y)) < cDbl(montant)) Then

[delavega]

ça marche pas non plus

[KiLVaiDeN]

Fait un print de ce que te retourne prod.fields("tranche1") pour voir si c'est bien un entier ou un chiffre qui peut supporter une comparaison.

[delavega]

voici le résultat :

Dans la base egal le champs prod.fields = 10
Dans la base egal le champs prod.fields = 20
Dans la base egal le champs prod.fields = 30
Dans la base egal le champs prod.fields = 40
Dans la base egal le champs prod.fields = 50

[delavega]

si tu as msn on peu voir ça ensemble en direct ?

[KiLVaiDeN]

Désolé je n'ai pas MSN, et je ne suis pas un pro de VB.. Je suis plus Java/PHP..

En ce qui concerne ton souci, essai de faire un print des valeurs avant cette ligne :

Code :

1
2
3
 
// ici afficher prix(y) et montant
if (prix(y) < montant) Then

Sinon, il y a un truc peut-être à voir au niveau des parenthèses, enlève les et essaie avec :

Code :

1
2
 Dim comparePrix = prix(y)
If comparePrix < montant Then