准备备好12个图片？取名sx01.jpg-sx12.jpg！放在当前文件夹。comboBox 只显示年份、添加一个按钮Command1 Dim strSxName Private Sub Command1_Click() Dim dd As Long '计算选择的年份和标准年份的差值 dd = (dateDiff("yyyy", #1/1/2020#, DateSerial(Combo1.Text, 1, 1)) Mod 12 + 12) Mod 12 Text1.Text = strSxName(dd) '载入对应的图片 Image1.Picture = LoadPicture(App.Path & "\" & Format(dd+1, "00") & ".jpg") End Sub Private Sub Form_Load() '初始化数组 strSxName = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") '找到一个已知生肖的年份作为标准年份：2020-鼠年,对应数组索引0、对应图片 01.jpg End Sub、
1921年辛酉鸡年92岁！1933年癸酉鸡鸡年80岁。1945年乙酉鸡年68岁、1957年丁酉鸡年56岁！1969己酉鸡年44岁。1981年辛酉鸡年32岁！1993年癸酉鸡年20岁、2005年乙酉鸡年8岁、。
亥猪： 亥猪与寅虎六合。因此最宜找个属虎的对象、此乃上上等婚配。其次是与卯兔未羊三合。故也宜找个属兔属羊的。此乃上等等婚配!亥猪与巳蛇相冲！故最忌找属蛇的！此乃下下等婚配，有时也讲亥7941亥自刑,7028故也不宜找同属相的？此乃中下等婚配、生1919肖鸡对应年份！
属鸡的年份有 1933 1945 1957 1969 1981 1993 2005 2017 2029 2041,
冲煞只是一个大概范围！不是所所有同一生肖都一样 如果是这样的话 那就成了 刻舟求剑 了！
每年有很多庚子日，这是天干和地支排列组合！属什么要以年为准！且5220按节气确定，
出生年月日 1909年01月22日 - 1901年02月09日 1921年02月08日 - 1922年01月27日 1933年01月2叮日 - 1934年02月13日 1945年02月13日 - 1946年02月01日 1957年01月31日 - 1958年02月17日 1969年02月17日 - 1970年02月05日 1981年02月05日 - 1982年01月24日 1993年01月23日 - 1994年02月09日，
一般传统命理算法是按年柱纳音。新派命理算法是看八字中日干0564的五行！
其实 不是蝴蝶飞不过沧海只是 当蝴蝶千辛万苦地飞过了沧海才知道沧海的这边 从来就8684没有过等待，
我就记得自己出生的年份是什么生肖、然后12年以内的就按按十二生肖排序来算、12年以外的就加上12的倍数，比如1985年是属牛、那2015年就是（2015-1985）/12=2余数6！2015年就是牛年后面第六个生肖！（鼠牛虎兔龙蛇马羊猴鸡狗猪）属羊、，
生肖鸡对应年份、各生肖对应出生年份