Savoir si un nombre est pair ou impair

Commenter

Contenu du snippet

xIsEven test si un nombre est pair, xIsOdd test si un nombre est impair.

Source / Exemple : 


'***********************************************************************************************************
' Name       : xIsEven
' Purpose    : Test if a number is even.
' Syntax     : xIsEven(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsEven(ByVal Number As Long) As Boolean
    xIsEven = Not -(Number And 1)
End Function

'***********************************************************************************************************
' Name       : xIsOdd
' Purpose    : Test if a number is odd.
' Syntax     : xIsOdd(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsOdd(ByVal Number As Long) As Boolean
    xIsOdd = -(Number And 1)
End Function

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Mr X)