- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么用代码读取身份证的出生：年、月、日呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10108)
-- 发布时间：2011/5/21 19:52:00
-- 怎么用代码读取身份证的出生：年、月、日呢？
麻烦高手给个说明。我是要做票据打印的需要读取身份证的出生：年、月、日
-- 发布时间：2011/5/21 21:19:00
--
不看帮助吗？
ReadBirthDay
从身份证号码中读取出生日期。
语法
ReadBirthDay(Value)
Value：身份证号码
例如：
Dim
Identify As String = "410110197109172433"Output.Show(ReadBirthDay(Identify))
上述代码的输出结果是“1971-9-17”，即1971年9月17日
-- 发布时间：2011/5/21 21:53:00
--
你好，我是要读取单元格的数据的身份证。后弄出年月日
-- 发布时间：2011/5/21 22:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目22.table |
-- 发布时间：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 而不是想要的身份证日期.命令窗口显示是正确的.
-- 发布时间：2011/5/22 14:08:00
--
输入错误
-- 发布时间：2011/5/22 14:21:00
--
Dim r As Row = Tables("表A").Current
e.Form.Controls("DateTimePicker1").value =ReadBirthDay(r("身份证号码"))
改成这样就行了