主题：请教属相 按钮代码

好像一两年前我做过一个有关日历的项目，就有属相的设置。

其实很简单。

Dim d As Date = Date.Today
Dim Sx() As String = "猴|鸡|狗|猪|鼠|牛|虎|兔|龙|蛇|马|羊|".split("|")
Output.Show(Sx(d.Year Mod 12))