Posteriormente a mirar en varios repositorios y sitios de internet al terminar hemos dado con la resolución que te enseñamos a continuación.
Ejemplo: vba bits a byte
'Extremely fast VBA function to convert a binary string to a Byte:Function BitsToByte(bits$)AsByteDim i&Static b()AsByteIf LenB(bits)>16ThenExitFunctionIf LenB(bits)=16Then
b = bits
Else
b =String$(8- Len(bits),"0")& bits
EndIfFor i =0To14Step2
BitsToByte =2* BitsToByte Or(b(i)Xor48)NextEndFunction'Example:
MsgBox BitsToByte("00001100")'<--displays: 12
MsgBox BitsToByte("10000001")'<--displays: 129'''
valoraciones y reseñas
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)