- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 生日问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38930)
-- 发布时间：2013/8/11 9:08:00
-- 生日问题
Bin老师：如何从身份证号中提取“生日”？只要月日（不要年），如3月8日出生，则在“生日”列中显示：03.08既可。已上传附件，请修改。谢了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:取生日.zip |
-- 发布时间：2013/8/11 9:23:00
--
Format(ReadBirthDay(身份证号码), "MM.dd")
-- 发布时间：2013/8/11 10:23:00
--
代码不行。要求是在“身份证号”列中取生日信息，在“生日”列中显示生日。请修改附件
-- 发布时间：2013/8/11 10:55:00
--
未带开发版
-- 发布时间：2013/8/11 11:49:00
--
DataColChanged事件中加入下面的代码:
If e.DataCol.Name = "身份证号码" Then \'如果更改的是身份证号码列
If e.DataRow.IsNull("身份证号码") Then \'身份证号码是否为空
e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
Else
\'否则从身份证号码列中提取出生日期
e.DataRow("出生日期") =Format(ReadBirthDay(e.DataRow("身份证号码")),"m")
End If
End If
结果为：
几月几日
[此贴子已经被作者于2013-8-11 12:14:46编辑过]
-- 发布时间：2013/8/11 13:12:00
--
试了，只生成“出生日期”（年月日），“生日”（月日）没有。如何从“出生日期”列中提“生日”也行。
此主题相关图片如下：生日.jpg
-- 发布时间：2013/8/11 13:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.zip |
If e.DataCol.Name = "第一列" Then \'如果更改的是身份证号码列
If e.DataRow.IsNull("第一列") Then \'身份证号码是否为空
e.DataRow("第二列") = Nothing \'如果为空,则清除出生日期
Else
\'否则从身份证号码列中提取出生日期
e.DataRow("第二列") = ReadBirthday(e.DataRow("第一列"))
e.DataRow("第三列") = Format(e.DataRow("第二列"),"MM.dd")
End If
End If
-- 发布时间：2013/8/11 13:39:00
--
你已经有出生日期了，直接把他分成出生年、月、日三列不就可以了，以后查询也方便。
如查询8月分出生的有几人。
-- 发布时间：2013/8/11 14:43:00
--
谢谢7楼！