Conversion binaire

Bonjour,

Question VB et non VBA.

Savez-vous s'il existe une fonction qui permette de convertir un entier (ou autre ?) en binaire.

Par exemple je tape 2 et il me retourne 10 (ou 0010)


Merci pour toute suggestion.


~~~ NuNu ~~~

Merci,

Entre temps j'ai trouvé ce bout de code sur internet (http://support.microsoft.com/default.aspx?scid=kb;fr;466157)



Function baseconv(InputNum, BaseNum)
Dim quotient, remainder As Single
Dim answer As String
quotient = InputNum
remainder = InputNum
answer = ""
Do While quotient <> 0
remainder = quotient Mod BaseNum
quotient = Int(quotient / BaseNum)
answer = remainder & answer
Loop
baseconv = Val(answer)
End Function



A+++


~~~ NuNu ~~~

Merci c'est nickel.

~~~ NuNu ~~~