create function p_check_txm_xlw (@txm char(13))
returns char(13)
as
begin
--传入 13位条形码(eg: 1234567890123)
计算 条码校验位 ,输出1 则校验位正确,0,不正确
if left(@txm,1)='2'
return 1
if len(rtrim(@txm))<=7
return 1
declare @i integer
declare @jyw integer
declare @k integer
declare @ls_mid char(1)
set @jyw=''
set @i=len(rtrim(@txm))
set @k=len(rtrim(@txm))
while @i >0
begin
set @i =@i -1
set @ls_mid=substring(@txm,@i,1)
if (@k - @i +1 )%2=0
select @jyw = 3* cast(@ls_mid as integer) + @jyw
else
select @jyw = cast(@ls_mid as integer) + @jyw
end
set @jyw= (10 - @jyw%10)%10
return substring(rtrim(@txm),1,12) + rtrim(ltrim(str(@jyw)))
end
SQL 计算条码校验位,输出1 则校验位正确,0,不正确
最新推荐文章于 2026-02-16 00:15:46 发布
本文介绍了一个用于计算13位条形码校验位的函数。该函数接收一个包含13位数字的字符串作为输入,计算并返回带有正确校验位的条形码。文章详细展示了使用SQL语句实现的条形码校验位计算逻辑。
1542

被折叠的 条评论
为什么被折叠?



