作者Marty (DNA探针)
看板Visual_Basic
标题Re: [VBA ] 如何写一个VBA去验证身份证字号是否正봠…
时间Tue Oct 24 14:32:21 2006
※ 引述《rala1128 (饼饼)》之铭言：
: 必须要能验证身份证
: 还要具有防侦错功能
: 而且必须用If...Then...(Else)...End If 来写
: 有办法吗??
: 我们一群人真的快想破头了
: 还是想不出个所已然
: 可以请高手教教我们吗??
: 感激不尽!!
思考流程供你参考:
id = 身份证字号
if 验证公式(id) = true then
msgbox("通过验证")
else
msgbox("未通过验证")
end if
此外,如果要加入侦错功能,可以用下列思考方式:
id = 身份证字号
if IsNull(id) then
msgbox("未输入身份证")
else
msgbox("已输入身分证")
end if
其中IsNull是判断是否含有有效资料的函式,类似的函式还有IsNumeric()等..
另外也可以用select case来简化程式码,不过你说只能用if then..
那就这样罗..
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.202.6.129
1F：推 rala1128:谢谢你唷~~我是不是必须还要加入身分证的公式?? 10/24 14:57