Si encuentras algún error con tu código o proyecto, recuerda probar siempre en un ambiente de testing antes aplicar el código al trabajo final.
Ejemplo: vba binario string a entero largo
'Fast VBA function to converst binary string to a Long Integer:Function BitsToLong&(bits$)Dim i&Static b()AsByteIf LenB(bits)>64ThenExitFunctionIf LenB(bits)=64Then
b = bits
Else
b =String$(32- Len(bits),"0")& bits
EndIfFor i =2To62Step2
BitsToLong =2* BitsToLong Or(b(i)Xor48)NextIf(b(0)Xor48)Then BitsToLong = BitsToLong Or&H80000000EndFunction'-----------------------------------------------------------------------------
MsgBox BitsToLong("1")'<--displays: 1
MsgBox BitsToLong("10")'<--displays: 2
MsgBox BitsToLong("0110")'<--displays: 6
MsgBox BitsToLong("0100101")'<--displays: 37
MsgBox BitsToLong("100000000000000000000")'<--displays: 1048576
MsgBox BitsToLong("11111111111111111111111111111111")'<--displays: -1
Recuerda que puedes recomendar esta sección si te fue útil.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)