Public Function ShiftRight( _
ByVal vValue As Variant _
, ByVal vNBits As Variant _
) As Variant ShiftRight( 3, 2) = 0
ShiftRight(-3, 2) = 16383
ShiftRight(32767, 2) = 8191
ShiftRight(Chr$(16) + Chr$(32), 5) = Chr$(0) + Chr$(129)In the Shift Right operation, the bits of the string are shifted to the right (more-significant-bits are shifted to less-significant-positions). Those bits which were occupying the vNBits least-significant-positions are lost, and the vNBits most-significant-bits are set to 0 (zero). ArithmeticShiftRight Function
RotateRight Function
ShiftLeft FunctionvValue: Value whose bits are to be shifted left. Function returns Null if vValue is Null. vNBits: The number of positions that the bits within vValue are to be shifted right. Function returns Null if vNBits is Null or cannot be fixed up to a number.
Function returns vValue unchanged if vNBits is 0 (zero).
If vNBits is < 0 (less than zero), then the function will shift bits to the left instead of to the right.
Function will return the same type of value as vValue, or in the case of Date values (in which not all combinations of bits are valid) it may possibly generate a runtime error.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.