X进制与10进制之间的转换

在网上看到有16进制转为10进制，10转为16进制的方法，我这里做个X进制与10进制之间转换，算法与16<-->10直接的转换算法是相似的。

X进制与10进制之间的转换：

Declare @x nvarchar(1024)

Declare @y int

Declare @sys int --x进制

Set @x='30'

Set @sys=21 --@sys=21表示二十一进制

--x进制转换成10进制

;With

T1 As(

Select

X=Stuff(Reverse(@x),1,1,''),

Y=Convert(int,Case Isnumeric(Right(@x,1)) When 0 Then ASCII(Upper(Right(@x,1)))-55 Else Right(@x,1) End*Power(@sys,0)),

L=Convert(int,1)

Union All

Select

X=Stuff(X,1,1,''),

Y=Convert(int,Case Isnumeric(Left(X,1)) When 0 Then ASCII(Upper(Left(X,1)))-55 Else Left(X,1) End*Power(@sys,L)),

L=L+Convert(int,1)

From T1

Where X>''

)

Select [10进制-->X进制]=SUM(Y) From T1

--10进制换成x进制转

Set @y=32

Set @sys=2 --@sys=2表示二进制

;With

T1 As(

Select

X=Convert(int,@y/@sys),

Y=Convert(nvarchar(1024),Case (@y%@sys)/10 When 0 Then Rtrim(@y%@sys) Else Char(@y%@sys%10+65) End),

L=Convert(int,1)

Union All

Select

X=X/@sys,

Y=Convert(nvarchar(1024),Case (X%@sys)/10 When 0 Then Rtrim(X%@sys) Else Char(X%@sys%10+65) End+Y),

L=Convert(int,L+1)

From T1 Where X>0

)

Select Top 1 [x进制-->10进制]=Y From T1 Order By L Desc

结果：

10进制-->X进制

-----------

63

(1 行受影响)

x进制-->10进制

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

100000

(1 行受影响)