Excel VBA中用位掩码将RtlGenRandom生成值转为0-1的FP64

你原来使用的掩码 0xC000000000000000 存在核心问题：这个掩码的二进制最高两位（bit63和bit62）为1，经过 not(buffer or mask) 操作后，这两位会被置为0。而double的指数位是bit62到bit52（共11位），bit62为0会导致指数值最大只能到511，对应的double数值范围仅为约 1.1e-308 到 2.2e-155，完全达不到[0,1]的要求。

正确的位掩码方案（存在局限性） #

如果坚持用位掩码实现，需要确保最终生成的double满足：

• 符号位（bit63）为0（正数）
• 指数位（bit62-bit52）≤ 0x3FE（1022），这样数值必然小于1

对应的正确掩码为 0x8010000000000000（十六进制），二进制表示为：bit63=1、bit52=1，其余位为0。

操作逻辑：

1. buffer or mask 会强制bit63和bit52为1，其余位保留随机值
2. not 操作后，bit63变为0（符号位正），bit52变为0（确保指数位≤0x3FE），其余位取反后保持随机性

但注意：这种方式会限制指数位只能取偶数，损失了部分随机性，生成的数值分布并非完全均匀。

更推荐的无掩码方案（均匀分布+简洁高效） #

如果追求完全均匀的分布且代码简洁，更推荐将64位随机数直接转换为double后除以 2^64，这样能覆盖[0,1)的所有区间，且分布均匀。VBA示例代码如下：

Private Declare PtrSafe Function RtlGenRandom Lib "advapi32.dll" (ByVal pBuffer As LongPtr, ByVal dwBufferLen As Long) As Boolean
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Function GetUniformRandom() As Double
    Dim buffer(0 To 7) As Byte
    Dim ull As Currency ' Currency类型刚好占用8字节，可用于存储64位整数
    
    ' 生成8字节随机数
    RtlGenRandom buffer(0), 8
    ' 将字节数组拷贝到Currency变量
    CopyMemory ull, buffer(0), 8
    
    ' 转换为[0,1)范围的double：Currency是放大10000倍的64位整数，先还原为原始整数再除以2^64
    GetUniformRandom = (CDbl(ull) / 10000#) / (2 ^ 64)
End Function

说明 #

• 上述代码利用Currency类型作为64位整数容器，避免了复杂的字节拼接
• 最终生成的随机数严格均匀分布在[0,1)区间，无性能瓶颈

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