//-- début code généré par l'assistant --
// Conversion du décimal 1203 en hexadécimal
Info("1203 = "+EntierVersHexa(1203))
//--fin code généré par l'assistant --
FONCTION EntierVersHexa(Num)
ValD est un entier
ValH est une chaîne
Reste est un entier
ValD=Num
Boucle
// On récupère le reste de la division par 16
Reste=Modulo(ValD,16)
// On le convertit en chiffre hexadécimal
// et on le place au début du résultat
Selon Reste
CAS 10: ValH="A"+ValH
CAS 11: ValH="B"+ValH
CAS 12: ValH="C"+ValH
CAS 13: ValH="D"+ValH
CAS 14: ValH="E"+ValH
CAS 15: ValH="F"+ValH
Autres cas: ValH=Reste+ValH
fin
// On récupère la partie entière de la division par 16
ValD=ValD/16
// On arrête quand on arrive à 0
si ValD=0 alors sortir
fin
// Renvoie le résultat
RENVOYER ValH
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=5952&post_id=24013