Convertion integer tableau de boolean
cs_TomTom27
Messages postés
48
Date d'inscription
mercredi 21 janvier 2004
Statut
Membre
Dernière intervention
2 juin 2005
-
6 févr. 2004 à 08:41
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 6 févr. 2004 à 09:12
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 6 févr. 2004 à 09:12
1 réponse
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
6 févr. 2004 à 09:12
6 févr. 2004 à 09:12
Voila ta fonction
Tu l'appelles en lui transmettant un integer en 1er arg et en 2eme arg un tableau de 16 boolean qui contiendra le résultat.
Christophe R.
Private Sub IntegerToBool(ByVal I As Integer, ByRef Ret() As Boolean)
Dim j As Long, r As Long
For j = LBound(Ret) To UBound(Ret)
r = I Mod 2 Ret(j) (r 1)
I = Int(I / 2)
Next
End Sub
Tu l'appelles en lui transmettant un integer en 1er arg et en 2eme arg un tableau de 16 boolean qui contiendra le résultat.
Dim T(15) as boolean IntegerToBool(15,T)
Christophe R.
