| |
Сдвиг на n-ное число бит |
|
| |
Небольшая функция. Осуществляет сдвиг на n-ное число бит. Параметры функции:
lValue - Исходное значение
lNumberOfBitsToShift - Количество бит, на которые нужно сдвинуть число
lDirectionToShift - Направление сдвига (вправо или влево).
Public Enum dcShiftDirection
Left = -1
Right = 0
End Enum
Public Function Shift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As
Long, ByVal lDirectionToShift As dcShiftDirection) As Long
If lDirectionToShift Then
Shift = lValue * (2 ^ lNumberOfBitsToShift)
Else
Shift = lValue \ (2 ^ lNumberOfBitsToShift)
End If
End Function
|
|
| |
|
|
|
|