主题：[分享]身份证性别拼音案例-边学边做

-边学边做---
小爪-身份证性别拼音案例

主要功能：根据姓名和身份证号码会自动刷新
性别
出生日期
中文日期
姓名拼音
状态栏介绍

很感谢mr725的提示：
我已经修改好重新上传


1.保存时提示错误 原来是黄蓉的出生0023年不对 我改1823 年 系统就不提示错误了

2.正如mr725说的： 出生日期是字符型，改为日期型 就可以了

3.添加了农历中文的就用字符型，如果要数字的日期 请改为日期时间型
同样代码改为：
 Dim ln As New Lunar(e.DataRow("出生日期"))
             e.DataRow("农历")= ln.Lunardate  就可以了

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

点击浏览该文件:小爪-身份证性别拼音案例.rar

源码：
Select Case e.DataCol.Name
    Case "姓名"
        If e.DataRow.IsNull("姓名") Then 
            e.DataRow("拼音")= nothing
        else
            e.DataRow("拼音")= getpy(e.DataRow("姓名"))
        End If
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
            e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
            e.DataRow("中文日期")=nothing
            e.DataRow("性别") = Nothing
            e.DataRow("农历")=nothing
        Else
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("中文日期")=CUdate(e.DataRow("出生日期"))
            e.DataRow("性别")=ReadSex(e.DataRow("身份证号"))
            Dim ln As New Lunar(e.DataRow("出生日期"))
             e.DataRow("农历")= CUdate(ln.Lunardate)
        End If
End Select



select case maintable.name
case "身份证"
StatusBar.Message1= "本表的案例是1根据姓名生成拼音2根据身份证生成性别和出生日期和中文日期"
case else
StatusBar.Message1= ""
end select

先谢谢楼主!顶一下......

鼓励一下
谢谢

呵呵，鼓励！试了一下，出身日期不对嘛。

日期为双数时出错～  2008-05-11 显示为 2008-05-1    日空了一位数～   且重新修改部分后不能更新！ 有时提示错误。

难怪，你的出生日期是字符型，改为日期型 不会有问题

谢谢楼主的分享。

谢谢 ！已经修改

楼上的。如果我想把出生日期转换为农历日期，如何操作啊？？？

Dim d As New Lunar(Date.Today())'你的公历生日
Output.Show(d.LunarDate)'返回所在公历日期对应的农历日期

在表中加一列，农历日期，表属性里面的语句如何改啊？？不是太明白，刚学。

Select Case e.DataCol.Name
    Case "姓名"
        If e.DataRow.IsNull("姓名") Then 
            e.DataRow("拼音")= nothing
        else
            e.DataRow("拼音")= getpy(e.DataRow("姓名"))
        End If
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
            e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
            e.DataRow("中文日期")=nothing
            e.DataRow("性别") = Nothing
        Else
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("中文日期")=CUdate(e.DataRow("出生日期"))
            e.DataRow("性别")=ReadSex(e.DataRow("身份证号"))
        End If
End Select