update tablename set sfzhcolumn=
substring(sfzh,1,6)+'19'+substring(sfzh,7,9)+
case convert(int,substring(sfzh,1,1)

create procedure p_sfzto18 @sfz_input
varchar(18),@sfz_output varchar(18) output
as
declare @sfz_doing varchar(18),
@count integer,@valid integer

select @sfz_doing = rtrim(ltrim(@sfz_input))
//將輸入身份證賦給中間處理變數
if (char_length(@sfz_doing) < > 15) and
(char_length(@sfz_doing) < > 17) and
(char_length(@sfz_doing) < > 18)
//身份證長度合法性校驗
begin
select @sfz_output = @sfz_input
return
end
select @sfz_doing = case char_length(@sfz_doing)
//轉化為十七位身份證（沒有校驗位）when 15 then
substring(@sfz_doing,1,6)+'19'+substring(@sfz_doing,7,9)
when 18 then substring
　　 ( @sfz_doing ,1,17) else @sfz_doing end
select @count = 17,@valid = 0
while @count > 0
begin
//非數字字元的合法性校驗
if ascii(substring(@sfz_doing,@count,1))< 48
or ascii(substring(@sfz_doing,@count,1)) >57
begin
select @sfz_output = @sfz_input
return
end
select @valid = @valid + convert(integer,
substring(@sfz_doing,@count,1)) * (case
(19 - @count) when 1 then 1 when 2
then 2 when 3 then 4
when 4 then 8 when 5 then 5 when 6 then 10
when 7 then 9 when 8 then 7
when 9 then 3 when 10 then
6 when 11 then 1 when 12 then 2 when 13
then 4 when 14 then 8 when 15
then 5 when 16 then 10 when
17 then 9 when 18 then 7 end)
select @count = @count - 1
end

select @sfz_output = @sfz_doing + case @valid%11
when 0 then '1' when 1 then '0' when 2 then 'X' when 3 then '9'
when 4 then '8' when 5 then '7'
when 6 then '6' when 7 then '5' when 8 then '4' when 9 then '3'
when 10 then '2' end
//對出生日期的合法性校驗
if convert(integer, substring(@sfz_doing, 13, 2)) >
31 or convert(integer, substring(@sfz_doing, 11, 2)) > 12
begin
select @sfz_output = @sfz_input
return
end
else
begin
if substring(@sfz_doing,11,2) = '02'
begin
if convert(integer,
substring(@sfz_doing,13,2)) > 29
begin
select @sfz_output = @sfz_input
return
end
if convert(integer,substring(@sfz_doing,
13, 2)) = 29 and not ( (convert(integer,
substring(@sfz_doing, 7, 4)) % 4 = 0 And
convert(integer,substring(@sfz_doing,7,4))%100 < > 0)
　　Or (convert(integer,substring(@sfz_doing,7,4)) % 400 = 0) )
begin
select @sfz_output = @sfz_input
return
end
end
if convert(integer,substring(@sfz_doing,13,2))
= 31 and substring(@sfz_doing,11,2) not in
('01','03','05','07','08','10','12')
begin
select @sfz_output = @sfz_input
return
end
end
;


f_convert18(as_sfz_i)

string ls_sfz,ls_sign='',ls_calculatesign
int li_valid,li_count,li_charp,li_result

ls_sfz = trim(as_sfz_i)
if len(ls_sfz)< >15 and len(ls_sfz)< >17
and len(ls_sfz)< >18 then
messagebox("提示資訊",
"錄入的身份證長度不正確!!!")
return ""
end if
if len(ls_sfz) = 15 then
ls_sfz=left(ls_sfz,6)+
'19'+right(ls_sfz,9)
end if
if len(ls_sfz) = 18 then
ls_sign = right(ls_sfz,1)
ls_sfz = left(ls_sfz,17)
end if
if not isdate(mid(ls_sfz,7,4)+'-'
+mid(ls_sfz,11,2)+'-'+mid(ls_sfz,13,2)) then
messagebox("提示資訊",
'錄入的身份證出生年月資訊不合法!!!')
end if
li_valid = 0
for li_count = 17 to 1 step -1
if not isnumber(mid(ls_sfz,
li_count,1)) then
messagebox("提示資訊",
"錄入有非數字字元!")
return ""
end if
li_valid=li_valid+mod(2^(li_count),
11)*integer(mid(ls_sfz,18 - li_count,1))
next

li_charp = mod(li_valid,11)
choose case li_charp
case 0
ls_calculatesign = '1'
case 1
ls_calculatesign = '0'
case 2
ls_calculatesign = 'X'
case 3
ls_calculatesign = '9'
case 4
ls_calculatesign = '8'
case 5
ls_calculatesign = '7'
case 6
ls_calculatesign = '6'
case 7
ls_calculatesign = '5'
case 8
ls_calculatesign = '4'
case 9
ls_calculatesign = '3'
case 10
ls_calculatesign = '2'
end choose
if len(ls_sign) = 1 and ls_sign < > ls_calculatesign then
messagebox("提示資訊",'錄入的身份證不符合校驗規則!!!')
end if
return ls_sfz + ls_calculatesign