10进制转换为2进制

最新推荐文章于 2023-04-20 11:11:29 发布

zw0558

最新推荐文章于 2023-04-20 11:11:29 发布

阅读量1.1k

点赞数

文章标签： div function email null

本文链接：https://blog.csdn.net/zw0558/article/details/5970108

版权

功能: 将十进制数(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

alter proc change
@num bigint
as
begin
declare @num1 bigint
declare @ou varchar(2)
declare @out varchar(64)
set @num1=@num
set @ou=''
set @out=''
if @num=0
select @num,'十进制数转换为二进制数为:',@num
else
begin
while @num!=0
begin
set @ou=cast((@num%2) as varchar)
set @num=@num/2
set @out=@out+@ou
end
print ' 十进制数: '+cast(@num1 as varchar)
print ' 转换为'
print ' 二进制数: '+reverse(@out)
end
end