VBA 中的無符號整數問題

ID:89763 · 發表于 2015-9-13 15:38

因測試需要，我做了Excel的VBA中做了一個小的轉換工具，把一個用C語言格式表示的十六進制數 0xXXX，轉換為用VBA語言表示的&HXXXX的表示方法，并且做幾個移位的動作。只是沒想到，這么一個簡單的事情，在VBA中遇到了不少的麻煩。就在這里簡單的說明一下：

1. 字符串求值函數 val() 的結果范圍只是16位整數，雖然幫助文件中寫的是8字節的6進制范圍。例如:
Debug.print VAL(“&H8C48”）結果是： -29624
2. Hex 轉換函數，正負數的處理結果不理想。這樣把一個無符號整數，變成了32位負數。
debug.print Hex(VAL("&H8C48")) 結果是：FFFF8C48

那么，如何獲取正確的長整數結果呢？只能通過定義長整型變量，對這個16位數先轉換為負數，在求補碼的方式進行調整了。算法如下：
dim n as long  ‘如果定義為 Integer ，就會遭遇溢出錯誤
n=val("&H8C48") ’此時結果為 n=-29624，是因為 val 函數的范圍是16位
n=n+&H10000    '求負數的16位補碼， n=35912
‘此時在用Hex函數，可以獲取正確的十六進制結果
debug.print hex(n) -->結果為8C48

3. 以&HXXXX形式表示的十六進制立即數的使用，如果第一位是8XXX，則同樣會認定為負數。示例如下：
    dim m as long
m=1
if m>= &H8000 then m=m-&H8000
debug.print m
此時，m的值應該是多少呢?
  你或許想得到的值是 m=1，實際上，你的m值是 32769（&H8001）
  如何修改呢？把 &H8000 拆分為 &H7FFF +1，語句變化為：
  if m>&H7FFF then m=m-&H7FFF-1
這時你就可以得到你想要的結果了。

如果能夠直接使用無符號整數，或者能夠說明十六進制的立即數的類型屬于長整數型，都不會存在這樣的麻煩了。

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

VBA 中的無符號整數問題