我正在尝试执行一些位移操作以转换0110 0100 0000为1100 1000VBA代码.此示例的小数值为200.
我尝试了以下代码,但似乎>>无法正常工作.另外,如何将数据类型设置为零以清除所有位？
如果wordmsg是32位字,如何将第30位和第31位设置为1？
Sub test()
'Declaring variables
Dim simvalue As Integer, wordmsg As Integer, test As Integer, resolution As Integer
simvalue= 200
resolution = 0.0625
wordmsg = simvalue / resolution
test = wordmsg >> 3
End sub
谢谢.