主题：生日问题

Bin老师：如何从身份证号中提取“生日”？只要月日（不要年），如3月8日出生，则在“生日”列中显示：03.08既可。已上传附件，请修改。谢了！

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

点击浏览该文件:取生日.zip

Format(ReadBirthDay(身份证号码), "MM.dd")

代码不行。要求是在“身份证号”列中取生日信息，在“生日”列中显示生日。请修改附件

未带开发版

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

 

结果为：

几月几日

试了，只生成“出生日期”（年月日），“生日”（月日）没有。如何从“出生日期”列中提“生日”也行。
此主题相关图片如下：生日.jpg

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

点击浏览该文件:管理项目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

你已经有出生日期了，直接把他分成出生年、月、日三列不就可以了，以后查询也方便。

如查询8月分出生的有几人。

谢谢7楼！