主题：怎么用代码读取身份证的出生：年、月、日呢？

麻烦高手给个说明。我是要做piao据打印的需要读取身份证的出生：年、月、日

  不看帮助吗？

ReadBirthDay

从身份证号码中读取出生日期。

语法

ReadBirthDay(Value)

Value：身份证号码

例如：

Dim Identify As String = "410110197109172433"
Output.Show(ReadBirthDay(Identify))

上述代码的输出结果是“1971-9-17”，即1971年9月17日

你好，我是要读取单元格的数据的身份证。后弄出年月日

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.table

问一下在窗口:

 

Dim t As String =e.form.Controls("TextBox1").value
e.Form.Controls("DateTimePicker1").value =(ReadBirthDay(t))

 

 

这句代码出来是0001-01-01    而不是想要的身份证日期.命令窗口显示是正确的.

输入错误

Dim r As Row = Tables("表A").Current
e.Form.Controls("DateTimePicker1").value =ReadBirthDay(r("身份证号码"))

 

 

改成这样就行了