script vbs Convertir variables

Sur mon system, le séparateur décimal et la virgule, non pas le point.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim var1,var2
 
var1 = CDbl("99,1058")
var2 = CDbl("103,25")
if var1 > var2 then
        msgbox "var1 et plus grand que var2"
        else
        msgbox "var1 et plus petit que var2"
end if
'ou bien
var1 = "1099,1058"
var2 = "103,25"
if CSng(var1) > CSng(var2) then
        msgbox "var1 et plus grand que var2"
        else
        msgbox "var1 et plus petit que var2"
end if

Si tu veux optenir un chiffre exprimé d'un separateur decimal étant un point en une virgule

Code:

1
2
3
4
5
var1 = "99.1058"
var2 = "103.25"
var1 = replace(var1,".",",")
var2 = replace(var2,".",",")
Msgbox var1 & "     " & var2