主题：是否有从身份证解析出属性（鸡，狗等）的函数？

 生肖是循环的，知道某年是某个生肖就可以推了，参考代码

Dim year As Integer = 2017
Dim sx() As String = { "鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪" }
Dim tmp As Integer = year - 2008
If year < 2008 Then
    msgbox(sx(tmp Mod 12 + 12))
Else
    msgbox(sx(tmp Mod 12))
End If