VB自制函数：2、防溢出错误，大于4字节32位的数自动舍去

简介

还是因为要用VB做逆向算法，经常会出现得数大于32位，即十六进制大于“&HFFFFFFFF”的数，VB就会报“溢出”错误，无法继续，为了解决这一问题，特制作此函数。

代码

先看代码：

Public Function Keep32(bigNum As Double)
    Dim decNum As Double
    decNum = "&H100000000"
    Do
        If bigNum > decNum Then
            bigNum = bigNum - decNum
        Else
            Exit Do
        End If
    Loop
    Keep32 = bigNum
End Function

说明

1. 数据类型 ，必须为Do