主题：身份证号提取年龄

 参考

Dim d1 As Date = ReadBirthDay(e.Form.Controls("身份证号").text)
Dim d2 As Date = new Date(Date.Today.Year, 8, 31)
Dim y As Integer = d2.Year - d1.Year
If format(d1, "MMdd") > format(d2, "MMdd") Then
    y = y - 1
End If
msgbox(y)