1900年是鼠年抚十二年一轮。用年份除十二,余数减三,得数为十二生肖的排位。(鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪)如2011年,用2011除以12余7,7再减三等于4即为兔年。
1:看鸡冠和髯 产蛋鸡的鸡冠红,随着鸡龄的增加,鸡冠,髯会变大。随着鸡龄增加,产蛋机能下降,鸡冠,髯也会变化,稍显白。 2:看毛色,年轻母鸡毛色较好,有的会有光泽,花鸡多见;年轻鸡背部羽毛较好,年老鸡背羽较差原因:公鸡配种时踩踏所致,年轻鸡代谢旺盛,羽毛生长较快。 3:看脚距 母鸡其实也有,只是年亲时是一圆凸,较平,老龄鸡比较明显,脚距变的更加凸出,有的也可如公鸡一般,这和品种也有一定关系。 4:看行动的敏捷度,年轻鸡快,老龄鸡慢 5:看蛋包,老龄鸡蛋包大,可见松弛 6:看肛门,老龄鸡肛门松弛,即使停产期也较宽送,可放两指;年轻鸡不行,尤其是未开产的鸡,一指都紧7:看脚爪,老龄鸡爪较长,角质粗糙。原因,代谢减慢,刨食不勤。
'定义生肖数组 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个指标)、年份包括干支和纳音(3个指标)、八字是年月日时(8个指标,算遁藏更多,其中以日干论命)。所有一切最终都要回到金木水火土(含阴阳)的10个指标中。纳音五行是6个一组,强弱有别。 风水学上,简易用法是生肖配楼层、八宅;然后是纳音+八命配八宅;最后是八字配八命; 看八字,是必须年月日时都看; 合婚的最简易方法用福肖;复杂一点就纳音;最准的是八字; 兼而有之,生肖最简单,适合大众;纳音(年份)适合初学者;八字适合爱好者和从业者。
1941.1953.1965.1977.1989.2001.
2012 2000 1988 1976 1964 1952 1940 .... 12年一个循环
生作为一种古老的民俗文化事象,有关起源,历代学者众说纷纭。有人认为生肖与地支同源,可以追溯到史前的传说时代,黄帝“建造甲子以命岁”
我们都是农历
属相不是按公历或者阴历年份来计算的,是按中国传统的干支纪年来算的。比我今年是龙年,但实际要到今年立春以后出生的宝宝才是真正的龙宝宝。
1981年,中国人民银禒开始发行第一套中国十二生肖系列纪念币,即1981年鸡年金银币,以后按十二生肖顺序每年发行一套,至1992年,第一轮十二生肖系列纪念币的发行完毕。从1993年开始,又发行了我国的第二轮生肖纪念币。 彩色生肖银币是1988年虎年开始发行。