Fonction swap pour nombre entier

Commenter

Contenu du snippet

Voilà, c'est une fonction Swap pour nombre entier qui n'utilise pas de variable intermédiaires, c'est le fruit d'une opération simple de "Xorisation".

Source / Exemple : 


Option Explicit

Public Function SwapLng(Nb1 As Long, Nb2 As Long) As Boolean

    On Error GoTo Erreur'S'il y a une erreur va a la ligne erreur
    
    Nb1 = Nb1 Xor Nb2'Fonction
    Nb2 = Nb1 Xor Nb2'mathématiques
    Nb1 = Nb1 Xor Nb2'pour faire un swap
    
    SwapLng = True'Swap réaliser dc vrai
    Exit Function'quitte la fonction
    
Erreur:
    
    SwapLng = False'swap ratter dc faux

End Function

Conclusion :


Voilà, l'idée vient d'abord d commentaire dune ancienne source à Jack.

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 (gandalfkhorne)