EAN-8随机码与校验码生成程序算法详解

create function dbo.EAN8 (@value varchar(8))
    returns varchar(8)
as
begin
    declare @s1 int ,@s2 int,@s3 int  
    declare @t table (id int identity(1,1),b bit)
    insert into @t(b)
       select top 8 1 from syscolumns 
    set @value='0'+reverse(@value)
    select @s1=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id%2=0
    set @s1=@s1*3
    select @s2=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id>=3 and id%2=1
   set @s3=right(@s1+@s2,1)
return left(reverse(@value),7)+ltrim(10-case @s3 when '0' then '10' else @s3 end)
end
go

**************************复制此此行以上所以内容（不含此行）到查询分析器中执行********************************

应用举举例

select dbo.ean8(1234567) 返回值：12345670

declare @i int
set @i=1
while @i<30