SQL身份证格式验证

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
&nbs