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

1楼

441337802 发表于：2011/5/21 19:52:00

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

2楼

mr725 发表于：2011/5/21 21:19:00

不看帮助吗？

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

语法

ReadBirthDay(Value)

Value：身份证号码

例如：

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

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

3楼

441337802 发表于：2011/5/21 21:53:00

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

4楼

狐狸爸爸 发表于：2011/5/21 22:00:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目22.table

5楼

blackzhu 发表于：2011/5/22 14:03:00

问一下在窗口:

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

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

6楼

狐狸爸爸 发表于：2011/5/22 14:08:00

输入错误

7楼

blackzhu 发表于：2011/5/22 14:21:00

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

改成这样就行了

共7 条记录, 每页显示 10 条, 页签: [1]