身份证校验函数

SQL版本身份证格式验证 0为错误，1为正确
CREATE function [dbo].[IsID](@str nvarchar(18),@sex int)--传入两个变量 身份证和性别(男1女2)
returns bit
as
begin
declare @len int
declare @result bit
--set @result=0
set @len=len(@str)
if(@len!=18 and @len!=15)--长度是18位或15位
begin
set @result=0
end
else
if(case when @len=18 then left(@str,17) else @str end like '%[^0-9]%' )--15位身份证要为数字,18位身份证前17位必须是数字
begin
set @result=0
end
else
if(@len=18)--如果身份证是18位
begin--进行逻辑计算
declare @k int
declare @l nvarchar(11)
set @l='10X98765432'
set @k=
convert(int,left(@str,1))*7+
convert(int,substring(@str,2,1))*9+
convert(int,substring(@str,3,1))*10+
convert(int,substring(@str,4,1))*5+
convert(int,substring(@str,5,1))*8+
convert(int,substring(@str,6,1))*4+
convert(int,substring(@str,7,1))*2+
convert(int,substring(@str,8,1))*1+
convert(int,substring(@str,9,1))*6+
convert(int,substring(@str,10,1))*3+
convert(int,substring(@str,11,1))*7+
convert(int,substring(@str,12,1))*9+
convert(int,substring(@str,13,1))*10+
convert(int,substring(@str,14,1))*5+
convert(int,substring(@str,15,1))*8+
convert(int,substring(@str,16,1))*4+
convert(int,substring(@str,17,1))*2
set @k=@k%11
if(Upper(right(@str,1))!=substring(@l,@k+1,1))--逻辑计算的结果和身份证最后一位必须相等
begin
set @result=0
end
else
if(convert(int,substring(@str,17,1))%2!=@sex%2 and @sex in (1,2))--17位代表性别,奇数是男性,偶数为女性
begin
set @result=0
end
else
if(isdate(substring(@str,7,8))=0)--第7位开始代表出生日期,必须是时间格式
begin
set @result=0
end
else
set @result=1
end
else
if(@len=15)--如果身份证是15位
begin
if(convert(int,right(@str,1))%2!=@sex%2 and @sex in (1,2))--最后一位代表性别,奇数是男性,偶数为女性
begin
set @result=0
end
else if(isdate(substring(@str,7,6))=0)--第7位开始代表出生日期,必须是时间格式
begin
set @result=0
end
else
set @result=1
end

return @result
end