- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]华视身份证信息读取的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87133)
-- 发布时间：2016/7/4 15:37:00
-- [求助]华视身份证信息读取的问题
华视 CVR-100U,有些身份证正常读取，有些读取后发现有效日期出错，如下图：
（也就是说，身份证有效日期读取不全）
此主题相关图片如下：身份证.jpg
此主题相关图片如下：身份证.jpg请问大家有没有发现同样情况，是身份证本身的问题吗，要如何解决？
多谢！
[此贴子已经被作者于2016/7/4 15:37:27编辑过]
-- 发布时间：2016/7/4 15:41:00
--
r("有效日期") = pars(7).SubString(11).Replace(",","-")
改成
r("有效日期") = pars(7).SubString(11).Replace(",","-").replace("?", "")
再有就是，有效期，有可能是长期，那个时候要额外处理。你msgbox看一下对应的值，是什么
msgbox(pars(7).SubString(11))
-- 发布时间：2016/7/4 16:22:00
--
谢谢大红袍，
是身份证有效日期读取不全，我看了下wz.txt
有效日期本来应该是：
2007.10.15-2027.10.15
会读取成：
2007.10.15-2027.10.1
或
2007.10.15-2027.10.1？
或
2007.10.15-2027.10.1a
这是什么原因呢？
谢谢！
-- 发布时间：2016/7/4 16:27:00
--
不重要，只要前面的年份没错就行了。
Dim str As String = "2007.10.15-2027.10.15"
Dim d1 As Date = str.SubString(0,10).Replace(".", "-")
Dim d2 As Date = d1.AddYears(str.SubString(11,4)-d1.Year)
msgbox(d2)
-- 发布时间：2016/7/4 16:43:00
--
刚向卖家咨询了，回答如下：
身份证芯片里面是什么东西，读出来就是什么，身份证表面印刷的内容与身份证芯片的内容有可能不一致，有的地址都会不一致。
另，有效日期干脆用字符串保存好了
谢谢大红袍老师！