Discussion :

[sab_etudianteBTS]

Bonjour à tous,
Voila j'aimerais savoir s'il était possible de tester si un nombre est entier ou décimal. J'ai cherché un peu partout sur le net mais je n'ai pas trouvé de fonction "directe".
Ou alors tout simplement traiter le nombre (qui est une chaine de caracteres) et tester si il contient une virgule...
Merci pour votre aide!

[Alex35]

Ou alors tout simplement traiter le nombre (qui est une chaine de caracteres) et tester si il contient une virgule...
Merci pour votre aide!

possible avec la fonction instr(chaine, "caractere a trouver") apparemment si =0, alors pas de virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
str = "23"
response.write instr(str, ",")

renvoie 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
str = "1,223"
response.write instr(str, ",")

renvoie 2

[sab_etudianteBTS]

Ok, nickel c ca!!
Merci bcp Alex35!!

[Alex35]

pas de p

[Immobilis]

Salut,

Il faut tout de même faire attention au fait qu'en anglais les virgules sont des points.
De plus, est-ce que "1,00" est un nombre décimal? Oui et non.
Pour en être certain, je verifierais que le nombre en question soustrait de sa partie entière est différent de 0. Sachant qu'un décimal peut être aussi négatif !

Allez on se creuse les méninges.

Bon allez, voici une petite idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function IsDecimal(byval str)
	str = replace(str, ",",".")
	if isnumeric(str) then
		str = abs(str)
		FOR i = 1 to len(str)
			if not isnumeric(mid(str, i, 1)) then EXIT FOR
		NEXT
		response.Write("La partie entière de " & str & " est : " & mid(str, 1, i - 1) & "<br>")
		response.Write("Le resultat de " & str & " - " & mid(str, 1, i - 1) & " = " & str - mid(str, 1, i - 1) & "<br>")
		IsDecimal = eval(abs(str - mid(str, 1, i - 1)) > 0)
	else
		IsDecimal = false
	end if
End function
 
str = "-4000000,98765345"
if IsDecimal(str) then response.Write(str & " est bien un nombre décimal!!") else response.Write("Oups, on dirait que " & str & " n'est pas un nombre décimal.<br>")

A+

[Alex35]

effectivement, mais je ne fais que repondre a la question posée...
Apres on peut evidemment apporter des modifications, que dis je des meliorations!!
++