Private Const char = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Function Base10N(ByVal Value As Long, ByVal Base As Long) As String
    Dim v1 As Long
    If (Base < 2) Then Exit Function
    If (Base > 36) Then Exit Function
    Do
        v1 = (Value Mod Base)
        Value = Int(Value / Base)
        Base10N = Mid$(char, 1 + v1, 1) & Base10N
    Loop While Value > 0
End Function

Function BaseN10(ByVal Value As String, ByVal Base As Long) As Long
    Dim v2 As Long
    Dim i  As Long
    Dim j  As Long
    If (Base < 2) Then Exit Function
    If (Base > 36) Then Exit Function
    For i = Len(Value) To 1 Step -1
        v2 = InStr(1, char, Mid$(Value, i, 1)) - 1
        If v2 < 0 Then Exit Function
        If v2 >= Base Then Exit Function
        For j = 1 To (Len(Value) - i)
            v2 = v2 * Base
        Next
        BaseN10 = BaseN10 + v2
    Next
End Function

<b>Transformation d'un nombre en BaseN, renvoie une chaîne</b>
<cfoutput>
<br>FormatBaseN(10, 2): #FormatBaseN(10, 2)#
<br>FormatBaseN(1024, 16): #FormatBaseN(1024, 16)#
<br>FormatBaseN(125, 10): #FormatBaseN(125, 10)#
<br>FormatBaseN(10.75, 2): #FormatBaseN(10.75, 2)#
</cfoutput>
<b>Transformation d'une chaine en valeur numéric de baseN, renvoie un nombre</b>
<cfoutput>
<br>InputBaseN("1010", 2): #InputBaseN("1010", 2)#
<br>InputBaseN("3ff", 16): #InputBaseN("3ff", 16)#
<br>InputBaseN("125", 10): #InputBaseN("125", 10)#
<br>InputBaseN(1010, 2): #InputBaseN(1010, 2)#
</cfoutput>

<?php

        echo "base(10) : 541 => base(16) : ".base_convert(541,10,16)."<br />";
        echo "base(16) : 21D => base(2) : ".base_convert('21D',16,2)."<br />";
?>

private const string CHAR = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";

public static int BaseNTo10(int baseFrom, string value) 
{
  if (baseFrom < 2 || baseFrom > 36) return -1;
  int v2 = 0; 
  int base10 = 0;
  for (int i = value.Length - 1; i>-1; i--) 
  {
    v2 = CHAR.IndexOf(value[i]);
    if (v2 < 0 || v2 >= baseFrom) return -1;    
    for (int j = 1; j < value.Length - i; j++) v2 *= baseFrom; 
    base10 += v2;
  }
  return base10; 
}

public static string Base10ToN(int baseTo, int value) 
{
  if (baseTo < 2 || baseTo > 36) return null; 
  System.Text.StringBuilder baseN = new System.Text.StringBuilder(); 

  do
  { 
     baseN.Insert(0, CHAR[value % baseTo]);
     value = (int)(value / baseTo); 
  }
  while (value > 0); 

  return baseN.ToString();
}

// Transformation base 10 > base x
var n = 20; // Nombre à transformer
var base = 16; // Base cible
var result = n.toString(base); // Résultat, ici "14"
// Transformation base x > base 10
var s = "14"; // Chaîne à analyser
var base = 16; // Base de la chaîne (optionnel, par défaut 10)
var result = parseInt(s, base); // Résultat, ou NaN en cas d'erreur ; ici, 20.
// Attention, parseInt("010") renvoie 8, parce que le zéro initial fait penser parseInt()
// que c'est un nombre octal (en base 8). Le préfixe "0x" indique un nombre
// hexadécimal, mais celui-ci est plus évident. La base doit être 16 pour que ce préfixe
// soit analysé correctement, sinon l'analyse arrête au "x", donc le résultat est 0.

FONCTION sBase(Local Valeur, Local Base est un entier = 10)
   sRetour est une Chaîne
   
   SI Base>1 ET Base<37 ALORS
      sRetour=Val(Valeur,Base)
   FIN
   RENVOYER sRetour
 
//----****----
//Utilisation
NombreCalcule=sBase(NombreAconvertir, 2)