VB.NET中调用Hex()转换64位十进制数为十六进制结果异常如何解决

你当前代码出错的核心原因是参数使用了Double类型存储大整数。Double是64位浮点类型，仅能保证53位长度范围内的整数精确存储，你传入的数值3689348814742970688已经超出53位精度上限，参数传入阶段就已经发生了舍入失真，后续直接调用Hex()转换自然会得到错误的结果。

不要用Double类型存储64位大整数，64位Office环境下直接使用VBA原生的LongLong（64位有符号整数）类型存储参数即可，不需要额外做复杂运算。

• 十六进制转换修复代码：

Public Function DecToHex(dec As LongLong) As String
    DecToHex = Hex(dec)
End Function

• 直接生成目标64位定长二进制字符串的代码（无需先转十六进制，避免中间步骤出错）：

Public Function DecTo64BitBin(dec As LongLong) As String
    Dim bitIndex As Long
    Dim binResult As String
    binResult = ""
    ' 从最高位（第63位）到最低位逐位取值
    For bitIndex = 63 To 0 Step -1
        binResult = binResult & IIf((dec And (2 ^ bitIndex)) <> 0, "1", "0")
    Next
    DecTo64BitBin = binResult
End Function

传入参数值3689348814742970688测试：

• DecToHex返回正确十六进制值：3333333333436140
• DecTo64BitBin直接返回你需要的目标比特串：0011001100110011001100110011001100110011010000110110000101000000

如果是32位Office环境无LongLong类型支持，需要将64位整数拆分为高低两个32位Long值分别处理，全程不要用Double类型承接大整数，否则必然出现精度丢失问题。

内容的提问来源于stack exchange，提问作者Jimis