SQL十進位轉二進位和十六的兩個函數

十進位轉二進位和十六的兩個函數
A.調用測試:
Update MySheet1 set 二進位=  dbo.inttobit(十進位)
Update MySheet2 set 十六進位=  dbo.inttohex(十進位)
B.函數內容
--十進位轉二進位函數
CREATE FUNCTION  dbo.inttobit (@number int)
returns varchar(100)
as
BEGIN
DECLARE @i int
DECLARE @j float
DECLARE @m int
DECLARE @OUT1 varCHAR(1)
DECLARE @OUT2 varchar(20)
SET @i=@number
set @out2=' '
WHILE @i>=1
BEGIN
SET @j=@i/2
SET @m=@i%2
SET @i=floor(@j)
SET @OUT1=cast(@m as char(1))
SET @OUT2=@OUT1+@OUT2
END
RETURN @OUT2
END

--十進位轉十六進位函數
CREATE   function dbo.inttohex(@i int)
returns varchar(15) 
begin
--declare @i int
--set @i=11259375
declare @r varchar(10)  
set @r=''
while @i/16>0
begin
set @r=
(case 
when (@i % 16)<=9 then convert(varchar(1),@i % 16)
when (@i % 16)=10 then 'A'
when (@i % 16)=11 then 'B'
when (@i % 16)=12 then 'C'
when (@i % 16)=13 then 'D'
when (@i % 16)=14 then 'E'
when (@i % 16)=15 then 'F'
end)
+@r
--select @r,@i
set @i=@i/16
end
--select @r,@i
if @i>0 
set @r=(case 
when (@i % 16)<=9 then convert(varchar(1),@i % 16)
when (@i % 16)=10 then 'A'
when (@i % 16)=11 then 'B'
when (@i % 16)=12 then 'C'
when (@i % 16)=13 then 'D'
when (@i % 16)=14 then 'E'
when (@i % 16)=15 then 'F'
end)+@r
-- select @r
return @r
end