如何将一个很大的double型十进制数转换为十六进制数？（高分悬赏）

Question

洪恩的擂台塞有一题就是关于任意进制的转换的。也是要求超长位的。

Answer 1

那有没有源代码呀？
很急。

Answer 2

在线等了很久也没有看到代码，要是自己写函数挺费事的，没有别的更好的办法了吗/我也在等*********

Answer 3

刚刚我看了系统里自带的计数器，在科学型里，可以把一个32位的十进制数字转化成为一个16位的16进制数字，如果你能找到计算器的代码然后在相应的位置就能查找到类似的代码……虽然解决问题的办法很愚蠢，但是我这个初学者也只能想到这样愚蠢的办法了%……如果有更好的办法 ，一定认真虚心的学习……继续等待

Answer 4

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Type Int64
    Lo As Long
    Hi As Long
End TypePrivate Function MyHex(ByVal Value As Double) As String
    Dim c As Currency
    Dim i64 As Int64
    
    c = Value / 10000
    
    CopyMemory i64, c, 8
    
    If i64.Hi Then
        MyHex = Hex(i64.Hi) & Right("0000000" & Hex(i64.Lo), 8)
    Else
        MyHex = Hex(i64.Lo)
    End If
    
End FunctionPrivate Sub Command1_Click()
    MsgBox MyHex(187647123874968#)
    
End Sub

Answer 5

187647123874968已经超过32位！
     2147483647是32位的最大值