excel中，将十进制数转化为IP显示

Public Function GetIpStr(dblNumber As Double) As String

    Dim strHex As String, strResult As String

    Dim i As Long

    

'    dblNumber = 3338666535#

    

    'Get Hex representation

    If dblNumber > (2 ^ 31 - 1) Then 'Deal with possible overflow for Long

        dblNumber = dblNumber - 2 ^ 32

    End If

    strHex = Hex(dblNumber)



    'Convert to decimal

    strResult = ""

    For i = 0 To 3

        strResult = strResult & CLng("&H" & Mid(strHex, i * 2 + 1, 2)) & "."

    Next i

    strResult = Left(strResult, Len(strResult) - 1)

    

    GetIpStr = strResult

End Function

Option Explicit



Sub test()

    MsgBox get_ip_string(3338666535#)

End Sub



Function get_ip_string(ip_dec As Currency) As String

    

    Dim ip_num As Currency



    Dim ip_a As Currency

    Dim ip_b As Currency

    Dim ip_c As Currency

    Dim ip_d As Currency

    

    Dim ip_str As String



    ip_num = ip_dec



    ip_a = Int(ip_num / 16777216)

    

    ip_num = ip_num - ip_a * 16777216

    ip_b = Int(ip_num / 65536)

    

    ip_num = ip_num - ip_b * 65536

    ip_c = Int(ip_num / 256)

    

    ip_num = ip_num - ip_c * 256

    ip_d = ip_num

    

    ip_str = Trim(Str(ip_a)) + "." + Trim(Str(ip_b)) + "." + Trim(Str(ip_c)) + "." + Trim(Str(ip_d))

    

    get_ip_string = ip_str



End Function