FONCTION HexaVersEntier(ch)

 

ValD est un entier

ValH est une chaîne

i est un entier

 

ValD=0

ValH=Majuscule(ch)

 

// Si la chaîne n'est pas nulle

SI ValH<>"" ALORS

       // Pour chaque lettre de la chaîne

       POUR i=Taille(ValH) A 1 PAS -1

             // On la convertit en sa valeur décimale

             // et on l'ajoute au résultat en la multipliant par la puissance de 16 correspondante

             SELON ValH[[Taille(ValH)+1-i]]

                    CAS "A": ValD=10*Puissance(16,i-1)+ValD

                    CAS "B": ValD=11*Puissance(16,i-1)+ValD

                    CAS "C": ValD=12*Puissance(16,i-1)+ValD

                    CAS "D": ValD=13*Puissance(16,i-1)+ValD

                    CAS "E": ValD=14*Puissance(16,i-1)+ValD

                    CAS "F": ValD=15*Puissance(16,i-1)+ValD

                    AUTRES CAS: ValD=Val(ValH[[Taille(ValH)+1-i]])*Puissance(16,i-1)+ValD

             FIN

       FIN

FIN

 

// Renvoie le résultat

RENVOYER ValD