Fonction retournant si un nombre est multiple de x

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 618 fois - Téléchargée 39 fois

Contenu du snippet

tt est dans le titre

Source / Exemple :


function multiple(counter as integer, snombre as integer)
	snombre = IIF(snombre = 0, 2,snombre) 
' Si aucune valeur est prise on prend 2 comme multiple
	multiple = IIF(snombre*(int(counter/snombre)) = counter, true ,false)
end function

' counter est le nombre a savoir si il est multiple de snombre
' si snombre n'est pas specifié c'est une fonction pour savoir si un nombre est pair

A voir également

Ajouter un commentaire Commentaire
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Ca se fait en général avec le Modulo
Issu de l'aide vbscript MSDN :
----
Effectue la division de deux nombres et renvoie seulement le reste.

result = number1 Mod number2
Arguments
result
Toute variable numérique.
number1
Toute expression numérique.
number2
Toute expression numérique.
Notes
L'opérateur modulo, ou reste, divise number1 par number2 (en arrondissant en entiers les nombres en virgules flottantes) et ne renvoie que le reste comme result. Par exemple, dans l'expression suivante, A (qui est l'élément result) est égal à 5.

A = 19 Mod 6.7
Si toute expression est Null, result est aussi Null. Toute expression qui est Empty est traitée comme 0.

------

F___

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.