主题：出生日期问题

学生信息表，有出生日期列， 在8月31日以后出生小于6周岁提示“你孩子不到入学年龄！”请指点，谢谢！

 

此主题相关图片如下：qq截图20160831100627.png

谢谢

还想请教一个问题，周岁截止8月31号

比如：身份证号是 33068320100810203235，他的出身日期是2010-08-10，电脑时间是2016-08-31， 到今年8月31日满6周岁，年龄列是6 。

假如：身份证号是 33068320100901203235，他的出身日期是2010-09-01，到今年8月31日满5周岁，电脑时间是2016-09-20（实际已经满6周岁，因截止日期是8月31日）， 任然是5周岁，年龄列是5。

请指点代码错在哪？谢谢！

Select Case e.DataCol.Name
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then  '身份证号码是否为空
            e.DataRow("出生日期") = Nothing  '如果为空,则清除出生日期
            e.DataRow("性别") = Nothing  '如果为空,则清除出生日期
            e.DataRow("年龄") = Nothing '如果为空,则清除年龄
        Else
            '否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号"))
            Dim y,m,d As Integer
            m=08
            d=31
            DateYMD(ReadBirthday(e.DataRow("身份证号")),Date.Today,y,m,d)
            e.DataRow("年龄") = y
        End If
End Select

谢谢