主题：[原创]2018小例子之-查询十二生肖

只需要知道某年一个生肖，即可推算

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

如果要转换新历为农历，参考 http://www.foxtable.com/webhelp/scr/1274.htm

 [此贴子已经被作者于2018/2/27 15:07:06编辑过]