可能是公元001年的生肖属性正好是鸡年而不是鼠年,生肖属性的年份应该是从公元前就开始了,毕竟公元是西方的叫法。。 这是为什么减三 加十二是因为十二年一轮,把年份除以十二,就是把每十二年分成一个阶段,比如余数是2,按照上面说的原因要减去3,发现变成了-1,那么就意味着要去前一个12年里面去找,前面一个十二年前去最后一个猪年,那么就是狗年了。。
生肖属相是以二十四节气里的立春为界。例如兔与龙,农历的出生时间是在立春之前,那么你的生肖属相就是兔,在立春之后就是龙,这取决于当年的立春是在哪一天。不要管什么阳历,这是中国的传统文化当然是按老黄历的
1鸡2017年/2猴2018年/3羊2019年/4马2020年/5蛇2021年/6龙2022年/7兔2023年/8虎2024年/9牛2025年/10鼠2026年/11猪2027年/12狗2028年
'定义生肖数组 Dim sx '以下两行按需求任选一行使用 sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",") 'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",") '在TextBox1中输入年份, 'TextBox1限制输入字数为4(属性MaxLength=4)且只能输入数字(代码) Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer) If KeyAscii vbKey9 Then KeyAscii = 0 End Sub ‘使用CommandButton1计算生肖索引,在Label1显示生肖名称,在Image1显示生肖图片 Private Sub CommandButton1_Click() Dim sxIndex As Integer sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖名称索引,1900是鼠年的年份数 Label1 = sx(sxIndex) '显示生肖名称 Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\sxpic\sx" & sxIndex & ".jpg") '显示生肖图片,生肖图片使用像“sx0.jpg”这样的文件名。要求:1、文件必须是保存过的;2、需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下 End Sub
人们通常只能知道是年份属相,这是根,月为树,日为花,时为果。命理讲究的是根深树壮花开果实。 你年月冲,可谓命带驿马,代表你适宜离家远走,奔波他乡。兄弟姐妹无靠,白手兴家之气概。日时属猴,可见你八字三字为金,性格刚烈倔强,重义气。最重要的是日干,日肖为猴则是妻位,可知你恋爱今年不会成功反受其累。明年犯太岁,凡事谨慎小心,忍让修行,广施仁德,成就未来!
你是木命...采纳我的吧。。
1:看鸡冠和髯 产蛋鸡的鸡冠红,随着鸡龄的增加,鸡冠,髯会变大。随着鸡龄增加,产蛋机能下降, 鸡冠,髯也会变化,稍显白。 2:看毛色,年轻母鸡毛色较好,有的会有光泽,花鸡多见;年轻鸡背部羽毛较好,年老鸡背羽较差 原因:公鸡配种时踩踏所致,年轻鸡代谢旺盛,羽毛生长较快。 3:看脚距 母鸡其实也有,只是年亲时是一圆凸,较平,老龄鸡比较明显,脚距变的更加凸出, 有的也可如公鸡一般,这和品种也有一定关系。 4:看行动的敏捷度,年轻鸡快,老龄鸡慢 5:看蛋包,老龄鸡蛋包大,可见松弛 6:看肛门,老龄鸡肛门松弛,即使停产期也较宽送,可放两指;年轻鸡不行,尤其是未开产的鸡, 一指都紧7:看脚爪,老龄鸡爪较长,角质粗糙。 原因,代谢减慢,刨食不勤。
都有人有四生肖 不过普遍大家是说年肖。
1927、1939、1951、1963、1975、1987、1999、2011以及2023
1955.1967.1979.1991.2003.2015