|
 |
 |
 |
| |
Convertion Decimal --> Binaire 
Paramètres en entrée : Num (variant)
Paramètres en sortie : DecimalBinaire (chaîne)
Description : donne la valeur binaire d'une valeur décimale
Public Function DecimalBinaire(Num As Variant) As String
Dim compteur As Integer
If Num >= 2 ^ 31 Then
DecimalBinaire = "Nombre trop grand !"
Exit Function
End If
Do
If (Num And 2 ^ compteur) = 2 ^ compteur Then
DecimalBinaire = "1" & DecimalBinaire
Else
DecimalBinaire = "0" & DecimalBinaire
End If
compteur = compteur + 1
Loop Until 2 ^ compteur > Num
End Function
|
|
 |
|
 |
|
IDDN Certification
