进制转换！

真主

我在查询中要把一个字段“117483712”先转成“十六进制”，如：[分成四部分，位数不足，在左边加0：07.00.A8.C0]，将每部分转成十进制：7.0.168.192，再翻转成IP：192.168.0.7

[此贴子已经被作者于2005-1-17 11:23:26编辑过]

Trynew

Public Function IntToIp(Num As Long) As String

    Dim LenNum As Integer

    IntToIp = Right("00000000" & Hex(Num), 8)

    IntToIp = Val("&H" & Mid(IntToIp, 7, 2)) & "." & Val("&H" & Mid(IntToIp, 5, 2)) & "." & Val("&H" & Mid(IntToIp, 3, 2)) & "." & Val("&H" & Mid(IntToIp, 1, 2))

End Function