'将身份证从15位升级为18位的函数
function getnewidcard(byval idcard as string) as string
dim i, s as integer
dim wi() as string = split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")
dim wf() as string = split("1,0,x,9,8,7,6,5,4,3,2", ",")
if mid(idcard, 7, 2) >= mid(now.addyears(-14).year, 3, 2) then
idcard = mid(idcard, 1, 6) & "18" & mid(idcard, 7, 9)
else
idcard = mid(idcard, 1, 6) & "19" & mid(idcard, 7, 9)
end if
