主题：日期转年龄

老师，出错了，请老师看看。

If e.DataCol.name = "学生姓名" Then
    If e.DataRow.isnull("学生姓名")
        e.DataRow("性别")= Nothing     ' ……其它自己补充
        e.DataRow("年龄")= Nothing
        e.DataRow("家长姓名")= Nothing
        e.DataRow("家庭住址")= Nothing
        e.DataRow("联系电话")= Nothing
       
    Else
        Dim dr As DataRow = DataTables("学生名单").Find("学生姓名 ='" & e.DataRow("学生姓名") & "'")
        If dr IsNot Nothing
            e.DataRow("性别")= dr("性别")
            Dim tp As TimeSpan = Date.today - CDate("出生日期")
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
            e.DataRow("家长姓名")= dr("家庭成员姓名")
            e.DataRow("家庭住址")= dr("家庭地址")
            e.DataRow("联系电话")= dr("联系电话")
        End If
    End If
End If

老师您好，日期格式不对：总表中是8位数出生日期，怎么转化成符合识别的格式呢。

 Dim tp As TimeSpan = Date.today - CDate(dr("出生日期"))

.NET Framework 版本：4.0.30319.1026
Foxtable 版本：2020.5.29.8
错误所在事件：表，晨午检，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Conversion from string "20060503" to type 'Date' is not valid.