[VBS] Fonction vbscript pour transformer en binaire

Salut... je travail en asp pis je dois faire une recherche dans un champs binaire... pour ce faire je veux tranformer la chaine de caractère entrez par l'utilisateur dans la zone de texte au format binaire afin de le comparer avec le champs de donnée binaire dans ma base de donnée.

Existe-t-il une fonction vb qui fait cela ?

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9

Public Function DecToBin(DecVal As Double) As String Dim a As Double a = DecVal For b = 1 To Int(Log(DecVal) / Log(2)) + 1 DecToBin = CDbl(a Mod 2) & DecToBin a = CDbl(Int(a / 2)) Next b End Function

---

ca te va?

ouais merci