主题：根据年龄获取出生日期

请问老师，假设我年龄列为2岁3月15天，或为2岁，或为3岁2月，能不能根据年龄列数据获取出生日期呢？

请老师指点并写一下代码，谢谢！

学生愚钝，再追加一个问题：如果在年龄单元格只输入一个数值如1到100,按回车键后自动在数值后加上“岁”。希望用代码实现，谢谢！

老师，第一个问题返回的结果没有变化，还是当天日期，应该如何修改。

AfterEdit事件：

Dim str As String = e.Row（"年龄"）
Dim ary() = str.Split(new Char(){"岁", "月", "天"})
Dim d As Date = Date.Today
If str.Contains("岁") Then
    d = d.AddYears(-ary(0))
End If
If str.Contains("月") Then
    d = d.addmonths(-ary(1))
End If
If str.Contains("天") Then
    d = d.Adddays(-ary(2))
End If
e.Row("出生日期") =  d

现在可以了。

谢谢老师指点。