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

身份证,组织机构,营业执照号检验函数.在CSDN上看到,感觉不错拿来一起分享了. 无 GO/****** Object: UserDefinedFunction [ro].[wj_ValidateIDC] Script Date: 09/29/2012 11:23:34 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO--验证身份证号码--编

身份证,组织机构,营业执照号检验函数.在CSDN上看到,感觉不错拿来一起分享了.

GO
/****** Object:  UserDefinedFunction [ro].[wj_ValidateIDC]    Script Date: 09/29/2012 11:23:34 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--验证身份证号码
--编者：
--创建日期：2012-09-18
--参数：@idc 身份证号
create FUNCTION [ro].[wj_ValidateIDC]
(
 @idc varchar(18)
)RETURNS BIT
AS
BEGIN

 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--身份证号只有15或18位
  RETURN(0)
 IF LEN(@idc)=15  --如果是15位身份证 则只验证日期
     IF (ISDATE('19'+SUBSTRING(@idc,7,6))=0 and '19'+SUBSTRING(@idc,7,6) between '1900-01-01' and '2010-01-01')
        RETURN(0)
     ELSE
        RETURN(1)
 --18位身份证 验证日期 校验位
 IF (ISDATE(SUBSTRING(@idc,7,8))=0 and SUBSTRING(@idc,7,6) between '1900-01-01' and '2010-01-01')--验证日期
    RETURN(0)
 ---验证校验位开始
 
 WHILE @i15) 
 begin
 RETURN 0
 END
 
 SET @i=1
 WHILE @i ='A' AND @c='0' AND @c