主题：在身份证阅读器获取数据时候，出现有效期是长期，那么在有效期时间列属性中会报错，求解！

 加一个判断，处理

If s.Contains("长期") Then
    r("有效日期") = Date.Today.AddYears(200)
Else
    r("有效日期") = s.SubString(8,8).Insert(6,"-").Insert(4,"-")      求修改这个代码地方
End If

 弄成字符列以后没问题的。

 不过，你截取信息的时候，如果是长期的情况的话，有可能后面截取到的信息需要调整一下位置。

 回复7楼，可以。后面的位置跟着变即可。