亲。当然是年份了。月份那是星座…、
好啊！马年马月、祝福你。！
旧的： 白羊座3月21日～4月19日[12] 金牛座4月20日～5月20日[11] 双子座5月21日～6月21日[10] 巨蟹座6月22日～7月22日 [9] 狮子座7月23日～8月22日[8] 处女座8月23日～9月22日[7] 天秤座9月23日～10月22日[6] 天蝎座10月23日～11月22日[5] 射手座11月23日～12月21日[4] 摩羯座12月22日～1月19日[3] 水瓶座1月20日～2月18日 [1] 双鱼座2月19日～3月20日 [2] 新的： 牧羊 : 04/19 --- 05/13 （白羊） 金牛 : 05/14 --- 06/22 双子 : 06/23 --- 07/21 巨蟹 : 07/22 --- 08/10 狮子 : 08/11 --- 09/16 处女 : 09/17 --- 10/31 天秤 : 11/01 --- 11/23 天蝎 : 11/24 --- 11/29 蛇夫 : 11/30 --- 12/17 别意外。新座! 射手 : 12/18 --- 01/19 魔羯 : 01/20 --- 02/17 水瓶 : 02/18 --- 03/12 双鱼 : 03/13 --- 04/18 蛇夫座成为黄道”十三宫”的一员!！
一轮十二年！一个甲子六十年！，
农历去年十十二月廿一龙冲狗。
鼠：蓝晶石！黑玛瑙！海蓝宝，松石！青金石 牛：红碧玺，粉晶，黄水晶 虎：黑碧玺！黑玉、黄晶石！蓝宝石、松石，青金、蓝纹石 兔：黄晶石！松石，青金，海蓝宝。绿幽灵，黑玉、翡翠 龙：红碧玺。黄水晶、琥珀！紫水晶 蛇：橄榄石？孔雀石、东陵石。绿幽灵，玉、红碧玺，紫6978水晶 马：橄榄石。玉！东陵石。孔雀石、紫水晶、红碧玺 羊：红宝石，红珊瑚，红碧玺，红纹石！紫水晶 猴：黄水晶。钻石。琥珀。白金字塔水晶 鸡：黄水晶、琥珀、茶晶。白水晶 狗：红宝石、红碧玺。红纹石，紫水晶！芙蓉晶 猪：紫晶，红纹石，芙蓉晶。月亮石 国际宝石协会拟定的生辰石 1月 石榴石 象征忠实、友爱和贞操、 2月 紫水晶 象征诚实与平和。 3月 海蓝宝 4919 象征沉着与勇敢！ 4月 钻 石 象征纯净无瑕、 5月 翡翠或祖母绿 象征幸运与幸福。 6月 月光石或珍珠 象征健康，富贵和长寿。 7月 红宝石 象征热情与仁爱， 8月 橄榄石 象征和睦与幸福， 9月 蓝宝石 象征慈爱。忠诚与坚贞、 10月 电气石 象征安乐与愿望、 11月 托帕石或黄玉 象征友情和和爱情! 12月 绿松石 象征成功，！
1~12月！
准备好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，
婚配 要找大的 而且、
冲煞只是一个大大概范围!不是所有同一生肖都一样 如果是这样的话 那就成了 刻舟求剑 了生肖按月份还是年份。
上一篇：生肖看年份还是月份
下一篇：生肖是按月份还是年份
生肖按月份还是年份、生肖是按月份还是年份