VB如何實現無符號Long型值計算？

Question

如題

Answer 1

自己定义一个無符號Long型，方法自己实现

Answer 2

我是要將以下這個數轉成無符號位的Long型值，又或者是8位16進制字符串
99*12*31*24*60*60
+12*31*24*60*60
+31*24*60*60
+24*60*60
+60*60
+60

Answer 3

定义long型变量就可以拉,非long型可以用如Cdbl转换.
例如:
dim str1,str2
dim lng1 as long,lng2 as long,lng3 as long
lng1=cdbl(str1)
lng2=cdbl(str2)
lng3=lng1+lng2
lng3=lng1*lng2
...

Answer 4

你完全無考慮計算精度，如果不要精度，我為何要用long型？

Answer 5

唉，求人不如求已
Public Function ULongHex(ByVal varValue As Variant) As String
    If varValue < 0 Or varValue > CDec(&H7FFFFFFF) * 2 + 1 Then Exit Function
    If varValue > &H7FFFFFFF Then
        ULongHex= Replace(Format(Hex((varValue + &H80000000) Or &H80000000), String(8, "@")), " ", "0")
    Else
        ULongHex= Replace(Format(Hex(varValue), String(8, "@")), " ", "0")
    End If
End Function