|
|
|---|---|
|
|
|
|
|
|
|
|
呵呵 给你个函数吧~~
Function ZH(ByVal Y1 As Double, ByVal Y2 As Integer) As String Dim A As Double, B As Double, D As String, x As Integer Do A = Int(Y1 / Y2): B = Y1 - A * Y2: Y1 = A If B > 9 Then D = Chr(B + 55) + D Else D = LTrim(Str(B)) + D x = x + 1: If x = 4 And Y1 > 0 Then x = 0 Loop While Y1 > 0 ZH = D End Function Y1：待转换的10进制数据，Y2：欲转换的进制。例：10进制的65535转为2进制，那么：X=ZH1(65535,2),X是转换好的2进制字符串 
|
