主题：[求助]身份证

1、生肖是不是要先转为农历？

http://www.foxtable.com/webhelp/scr/1274.htm

2、根据年份获取生肖，参考代码

Dim year As Integer = 2018
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