身份z,组织机构,营业执照号检验函数

概述身份z,组织机构,营业执照号检验函数

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

GO/****** Object:  UserdefinedFunction [ro].[wj_ValIDateIDC]    Script Date: 09/29/2012 11:23:34 ******/SET ANSI_NulLS ONGOSET QUOTED_IDENTIFIER ONGO--验证身份z号码--编者：--创建日期：2012-09-18--参数：@IDc 身份z号create FUNCTION [ro].[wj_ValIDateIDC]( @IDc varchar(18))RETURNS BITASBEGIN DECLARE @valIDFactors VARCHAR(17),@valIDCodes VARCHAR(11),@i tinyint,@iTemp INT SELECT @valIDFactors='79A584216379A5842',@valIDCodes='10X98765432',@i=1,@iTemp=0 --验证校验位 --根据担保数据库增加条件，否则报错，by WJ IF (@IDc liKE 'x%' OR @IDc liKE '*%' OR @IDc liKE 'T%')    RETURN(0)  IF LEN(@IDc)<>15 AND LEN(@IDc)<>18--身份z号只有15或18位  RETURN(0) IF LEN(@IDc)=15  --如果是15位身份z 则只验证日期     IF (ISDATE('19'+SUBSTRING(@IDc,7,6))=0 and '19'+SUBSTRING(@IDc,6) between '1900-01-01' and '2010-01-01')        RETURN(0)     ELSE        RETURN(1) --18位身份z 验证日期 校验位 IF (ISDATE(SUBSTRING(@IDc,8))=0 and SUBSTRING(@IDc,6) between '1900-01-01' and '2010-01-01')--验证日期    RETURN(0) ---验证校验位开始  WHILE @i<18    BEGIN       SELECT @[email protected]+CAST(SUBSTRING(@IDc,@i,1) AS INT)*             (CASE SUBSTRING(@valIDFactors,1) WHEN 'A' THEN 10 ELSE SUBSTRING(@valIDFactors,1) END),@[email protected]+1    END IF SUBSTRING(@valIDCodes,@iTemp%11+1,1)=RIGHT(@IDc,1)    RETURN 1 ELSE    RETURN 0 RETURN 0ENDGO/****** Object:  UserdefinedFunction [ro].[wj_ValIDateYYZZNo]    Script Date: 09/29/2012 11:25:49 ******/SET ANSI_NulLS ONGOSET QUOTED_IDENTIFIER ONGO--功能：验证营业执照号--编者：--创建日期：2012-09-20--参数：@ZzNo 营业执照号create FUNCTION [ro].[wj_ValIDateYYZZNo]( @ZzNo varchar(15))RETURNS BITASBEGIN DECLARE @m INT,@n INT,@s INT,@p INT,@i INT,@result INT  SELECT @m=10,@n=11,@[email protected]  IF (LEN(LTRIM(RTRIM(@ZzNo)))=13 AND ISNUMERIC(@ZzNo) =1)  begin RETURN 1 END  IF (ISNUMERIC(LTRIM(RTRIM(@ZzNo)))=0)  begin RETURN 0 end IF (LEN(LTRIM(RTRIM(@ZzNo)))<>15)  begin RETURN 0 END  SET @i=1 WHILE @i <=14 BEGIN  SET @s = SUBSTRING(@ZzNo,1) SET @p = @[email protected] SET @p [email protected]%@m IF @p = 0 BEGIN    SET @p= @m END  SET @p = @p *2  SET @p = @p%@n SET @[email protected]+1 END  SET @p = @p+SUBSTRING(@ZzNo,15,1) SET @p = @p%@m  IF @p=1     BEGIN    SET @result =1    END     ELSE     BEGIN    SET @result =0    endRETURN @resultENDGO/****** Object:  UserdefinedFunction [ro].[wj_ValIDateZZJGNo]    Script Date: 09/29/2012 11:26:32 ******/SET ANSI_NulLS ONGOSET QUOTED_IDENTIFIER ONGO--功能：组织机构号验证--编者：--创建日期：2012-09-20--参数：@ZZJGNo 组织机构号ALTER FUNCTION [ro].[wj_ValIDateZZJGNo]( @ZZJGNo varchar(20))RETURNS BITASBEGINDECLARE @c varchar(20),@zz int,@z int,@jaz VARCHAR(30),@C9 VARCHAR(10)SET @ZZJGNo = UPPER(@ZZJGNo)SET @i=1WHILE @i <=8BEGINSET @c= SUBSTRING(@ZZJGNo,1)IF @c>='A' AND @c<='Z'BEGIN  SET @z = (ASCII(@c)-55) * (CASE @i WHEN 1 THEN 3 WHEN 2 THEN 7 WHEN 3 THEN 9 WHEN 4 THEN 10 WHEN 5 THEN 5 WHEN 6 THEN 8 WHEN 7 THEN 4 WHEN 8 THEN 2 END)END ELSE IF @c>='0' AND @c<='9' BEGIN  SET @z=CONVERT(NUMERIC,@c) * (CASE @i WHEN 1 THEN 3 WHEN 2 THEN 7 WHEN 3 THEN 9 WHEN 4 THEN 10 WHEN 5 THEN 5 WHEN 6 THEN 8 WHEN 7 THEN 4 WHEN 8 THEN 2 END)ENDELSEBEGINRETURN 0END  SET @zz = ISNulL(@zz,0)[email protected] SET @i = @i+1ENDSET @jaz = 11-(@zz%11)IF @jaz=10BEGINSET @C9 = 'X'END ELSE IF @jaz =11BEGINSET @C9='0'    ENDELSE BEGINSET @C9=LTRIM(RTRIM(@jaz))END IF @ZZJGNO = SUBSTRING(@ZZJGNO,1,8) [email protected]BEGIN    RETURN 1 END IF @ZZJGNO = SUBSTRING(@ZZJGNO,8)+'-'[email protected]BEGIN    RETURN 1ENDIF @ZZJGNO = SUBSTRING(@ZZJGNO,8) + '—' [email protected]BEGIN    RETURN 1ENDIF @ZZJGNO = SUBSTRING(@ZZJGNO,8) +' '[email protected]BEGIN    RETURN 1 END  RETURN 0END

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的身份z,组织机构,营业执照号检验函数全部内容，希望文章能够帮你解决身份z,组织机构,营业执照号检验函数所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。