【叶子函数分享五】将十进制转成十六进制

--创建函数

create function  [dbo].[hex](@cardno int )

returns varchar (100)

as

begin

    declare  @temp_mod int

    declare  @i int

    declare  @result varchar(100)

    declare  @temp_x int

    declare  @result_values int

    set  @result=''

    set  @i=1

    set  @temp_x=0

while  @cardno>0

    begin

       set  @temp_mod=@cardno%16

       set  @cardno=@cardno/16

       set  @result=(case  @temp_mod when  10 then  'A'

                                  when  11 then  'B'

                                  when  12 then  'C'

                                  when  13 then  'D'

                                  when  14 then  'E'

                                  when  15 then  'F'

                                  else  ltrim(str(@temp_mod)) end  )+@result

    end

return @result

end

 

--测试示例

select [dbo].[hex](1808) as Hex

 

--运行结果

/*

Hex

----------

710

*/

 

 

--第二版

/****************************

  整数转换成进制

  作者：不得闲

  QQ: 75492895

  Email: appleak46@yahoo.com.cn

****************************/

go

Create Function IntToHex(@IntNum int)

returns varchar(16)

as

begin

  declare @Mods int,@res varchar(16)

  set @res=''

  while @IntNum <> 0

  begin

    set @Mods =@IntNum % 16

    if @Mods > 9

      set @res = Char(Ascii('A')+@Mods-10)+@res

    else

      set @res = Cast(@Mods as varchar(4)) + @res

    set @IntNum = @IntNum/16

  end

  return @res

end

 

--测试示例

select dbo.IntToHex(1808)

 

--运行结果

/*

710

*/

 

 

 

特别说明：

如果数据量比较大，尽量避免使用自定义函数，以免严重影响性能。