语法

ReadBirthDay(Value)

Value：身份证号码

例如：

Dim Identify As String = "410110197109172433"
Output.Show(ReadBirthDay(Identify))

上述代码的输出结果是“1971-9-17”，即1971年9月17日