主题：[求助]华视身份证信息读取的问题

r("有效日期") = pars(7).SubString(11).Replace(",","-")

改成

r("有效日期") = pars(7).SubString(11).Replace(",","-").replace("?", "")

再有就是，有效期，有可能是长期，那个时候要额外处理。你msgbox看一下对应的值，是什么

msgbox(pars(7).SubString(11))

不重要，只要前面的年份没错就行了。

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)