excel vba移位运算

Posted 2022-02-12 红尘六欲

office excel vba移位运算

• 左移函数
• 右移函数

有时候要调整内存参数，或者计算相关频率，以及通过寄存器计算对应参数的值，可以通过excel表格自动计算，不用每次手动计算,由于比较老版本的office不支持bitand，无符号long类型，当计算数值达到2的31次方时会出错，经过反复测试，编写了相关代码
#10进制转16进制字符串

'10进制字符串转带0x开头的16进制
Function Dec2Hex(value)
Dec2Hex = "0x" + Application.WorksheetFunction.Dec2Hex(value)
End Function

左移函数

'输入为10进制和左移位数
'返回10进制字符串
'如果直接乘以2的多少次方，计算2的31次方会报错无法计算
Function decLeftMove(value, bit)
Debug.Print value; bit
decLeftMove = value * Application.WorksheetFunction.Power(2, bit)
Debug.Print decLeftMove
End Function

例子

Function ddrctiming0(tmrd, trrd, trppb, trcd, trc, tras)
ddrctiming0 = Dec2Hex(decLeftMove(tmrd, 28) + decLeftMove(trrd, 24) + decLeftMove(trppb, 19) + decLeftMove(trcd, 14) + decLeftMove(trc, 8) + decLeftMove(tras, 0))
End Function

右移函数

当16进制long类型最高位为1时，普通计算方式会出错，先转换成二进制字符串，然后进行移位处理，最后转换为10进制

'返回2进制字符串
Function Hex2Bin(value)
value = Format(value, "00000000")
Debug.Print value
For i = 1 To 8
    tmp = Application.WorksheetFunction.Hex2Bin(Mid(value, i, 1))
    outStr = outStr + Format(tmp, "0000")
Next
'Debug.Print outStr
Hex2Bin = outStr
End Function

'返回10进制字符串
Function Bin2Dec(value)
strLen = Len(value)
Debug.Print "strLen:"; strLen
tmp = 0
For i = strLen - 1 To 0 Step -1
tmp = tmp + Mid(value, strLen - i, 1) * (2 ^ i)
Next
Bin2Dec = tmp
End Function

'bitstart 开始位0-31
'bitmask为需要多少位001为3位
Function hexRightMove(value, bitstart, bitmask)
Debug.Print value; bitstart
tmp = Right(value, Len(value) - 2) '去掉0x头
Debug.Print "0x:"; tmp
tmp = Hex2Bin(tmp)
Debug.Print "tmp:"; tmp
tmp = Right(tmp, bitstart + bitmask)
Debug.Print "right:"; tmp
tmp = Left(tmp, bitmask)
Debug.Print "left:"; tmp
tmp = Bin2Dec(tmp)
Debug.Print "dec:"; tmp
hexRightMove = tmp
End Function

例子

Function dmctmrd(timing0)
dmctmrd = hexRightMove(timing0, 28, 4)
End Function

======================================
作者：hclydao
http://blog.csdn.net/hclydao
版权没有，但是转载请保留此段声明

======================================