你就做个程序 截取他的每一位 按位按权展开 之后你弄个累加器 加起来不就转了么。
参考这篇文章:http://blog.csdn.net/chinaboyzyq/archive/2010/04/09/5466433.aspx
Dim x As Longx = "&HFFFF"msgbox x