16,554
社区成员
发帖
与我相关
我的任务
分享
Public Function NumToIp(Num As Currency) As String
Dim Tmp As Currency
Dim Ip As String
Dim IpByte As Integer
Tmp = Int(Num / 256)
IpByte = Num - Tmp * 256
Ip = "." & CStr(IpByte)
Num = Tmp
Tmp = Int(Num / 256)
IpByte = Num - Tmp * 256
Ip = "." & CStr(IpByte) & Ip
Num = Tmp
Tmp = Int(Num / 256)
IpByte = Num - Tmp * 256
Ip = Tmp & "." & CStr(IpByte) + Ip
NumToIp = Ip
End Function
public string NumToIp(int Num)
{
int Tmp;
string Ip = null;
int IpByte = 0;
Tmp = Convert.ToInt16(Num / 256);
IpByte = Num - Tmp * 256;
Ip = "." + Convert.ToString(IpByte);
Num = Tmp;
Tmp = Convert.ToInt16(Num / 256);
IpByte = Num - Tmp * 256;
Ip = "." + Convert.ToString(IpByte) + Ip;
Num = Tmp;
Tmp = Convert.ToInt16(Num / 256);
IpByte = Num - Tmp * 256;
Ip = Tmp + "." + Convert.ToString(IpByte) + Ip;
return Ip;
}
/////////
1楼的简单,不过有一个地方错了, BitConvert应是 BitConverter
return string.Join(".", BitConverter.GetBytes(ip).Select(x => x.ToString()).Reverse().ToArray());