一个十进制转二进制的SQL函数

王朝mssql·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

-- 功能: 将十进制数(INT)转换为二进制字符串(VARCHAR)

-- 输入参数: @Dec 待转换的十进制数,正数, @StrLen 返回的二进制字符串的长度

-- 返回值: 二进制形式表示的字符串

-- 注意: 如果@Dec转换后的实际长度小于@StrLen,则左边补足"0",如果@Dec转换后的实际长度

-- 大于@StrLen,则以实际长度返回

-- 作者: cheyo@JMU telnet://bbs.jmu.edu.cn http://bbs.jmu.edu.cn Email: cheyocn at hotmail.com

-- 日期: 2005-09-29

-- 例子: SELECT 'B' + dbo.Dec2Bin(15, 4) AS '15的二进制表示'

CREATE FUNCTION Dec2Bin(@Dec INT, @StrLen TINYINT)

RETURNS VARCHAR(31) -- INT型,4字节,正数转为二进制字符串最多31位

AS

BEGIN

DECLARE @BinStr AS VARCHAR(31) -- 二进制表示的字符串

DECLARE @Div2 AS INT -- 商

DECLARE @Mod2 AS INT -- 模/余数

IF @Dec < 0

RETURN 'NULL' -- 不支持负数的转换

SET @Div2 = @Dec / 2

SET @Mod2 = @Dec % 2

SET @BinStr = ''

WHILE @Div2 <> 0

BEGIN

SET @BinStr = CAST(@Mod2 AS CHAR(1)) + @BinStr

SET @Dec = @Dec / 2

SET @Div2 = @Dec / 2

SET @Mod2 = @Dec % 2

END

SET @BinStr = CAST(@Mod2 AS CHAR(1)) + @BinStr -- 至此,已完成十进制到二进制的转换

IF @StrLen > LEN(@BinStr) -- 如果用户指定的长度大于实际长度,则需要左边补0

BEGIN

IF @StrLen > 31 -- 返回的长度,最长为32

SET @StrLen = 31

DECLARE @ZeroStr VARCHAR(31) -- 需要补充的"0000..."

DECLARE @OffsetLen TINYINT -- 需要补充几个"0"

SET @ZeroStr = ''

SET @OffsetLen = @StrLen - LEN(@BinStr)

WHILE @OffsetLen > 0

BEGIN

SET @ZeroStr = @ZeroStr + '0'

SET @OffsetLen = @OffsetLen - 1

END

SET @BinStr = @ZeroStr + @BinStr

END

RETURN @BinStr

END

GO

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航