对号入座
一、首先,我们应该了解农历、十天干和十二地支(对应十二生肖)。 农历:农历是中国长期采用的一种传统历法,这种历法以太阳历安排了二十四节气以指导农业生产活动,故称农历。 十天干:甲(jiǎ)、乙( yǐ)、丙(bǐng)、丁(dīng)、戊(wù)、己(jǐ)、庚(gēng)、辛(xīn)、壬(rén)、癸(guǐ)。 十二地支:子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪 。 十二生肖:鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪。 二、十二生肖分别代表1、2、3、4、5、6、7、8、9、10、11、12. 设当年生肖为a年,生肖为b,最小年龄为N。如下图 三、 计算公式为 当a≥b时,N=(a-b)+1 例如:今年为马(7)年,某人属虎(3),其最小年龄N=(7-3)+1=5 年龄可能为5、17、29、41...... 当a
先背过属相表, 比如几年 是龙年, 那么 2012, 1988, 2000,的人就是 0岁, 24岁, 12岁 ,其他类推
年龄 牙齿状况 19-28日龄 乳切齿长出 21-28日龄 第3乳前臼齿长出 21-35日龄 乳犬齿长出 21-42日龄 第4乳前臼齿长出 28-42日龄 第2乳前臼齿长出 2月龄 全部乳齿长齐 3-4月龄 更换第1、第2切齿、永久切齿长出 4-5月龄 更换第1乳前臼齿、永久前臼齿长出 4-6月龄 更换犬齿、长出永久犬齿、上下颌第1永久后臼齿长出 4-7月龄 更换第2后臼齿、长出永久齿 5-6月龄 更换第3切齿、长出永久齿 5-7月龄 第2、第3、第4永久前臼齿长齐 6-9月龄 下颌第3永久后臼齿长出 9-10月龄 全部永久齿换齐 1岁 永久齿长齐、洁白、光亮、切齿有尖突 1岁半 下颌第1切齿尖端有磨损 2岁半 下颌第2切齿尖端有磨损 3岁半 上颌第1切齿尖端有磨损 4岁半 上颌第2切齿尖端有磨损 5岁 下颌第3切齿尖端开始磨损、第1、第2切齿磨损为矩形、犬齿开始磨损 6岁 下颌第3切齿尖端开始磨损、犬齿钝圆 7岁 下颌第1切齿磨损到齿根部、磨成椭圆形 8岁 下颌第1切齿有磨损、并向前方倾斜 10岁 下颌第2、上颌第1切齿的磨面呈椭圆形 16岁 切齿脱落 20岁 犬齿脱落
寿命和狗的品种有关,一般就13-15年,巨型犬一般8-10年,梗犬有些则可以活20多年,最长寿的狗是一只澳大利亚牧牛犬,活了29岁
梦见自己的年龄,预示着你近期的运势很好,自己遇到困难的时候,有人出手帮助自己。
年龄,指一个人从出生时起到计算时止生存的时间长度,通常用年岁来表示。年龄是一种具有生物学基础的自然标志,一个人出生以后,随着日月流逝,年龄也随之增长,这是不可抗拒的自然规律。梦见年老,预示着诸事不顺。
梦见自己的年龄,预示着你近期的运势很好,自己遇到困难的时候,有人出手帮助自己。
单身者梦见自己的年龄,预示着你近期的爱情运势很好,遇到自己中意的对象,记得大胆表白自己的心意。
女人梦见自己的年龄,预示着你近期的运势不好,与自己的好友因为一些事情发生争吵,将会影响两人之间的友情。
求学者梦见兔子进屋,预示着你近期的考试成绩很好,记得不可以就此骄傲,以免影响下次的考试成绩。
相关的梦例解析
网友梦境:梦见自己的年龄。
解梦解析:梦见自己的年龄,预示着你近期的运势很好,自己遇到困难的时候,有人出手帮助自己。
2003年出生属羊的人今年8岁。 1991年出生属羊的人今年20岁。1979年出生属羊的人今年32岁。 1967年出生属羊的人今年44岁 1955年出生属羊的人今年56岁。1943年出生属羊的人今年68岁。 1931年出生属羊的人今年80岁。1919年出生属羊的人今年92岁。1907年出生属羊的人今年104岁
为什么要用select case语句呢.我认为用数组的方式代码会简化很多,不过既然你要求我就把两种代码都给你 用数组的代码 Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub dstr = "龙" '今年的属相 ostr = "鼠牛虎兔龙蛇马羊猴鸡狗猪" n = InStr(ostr, dstr) astr = Right(ostr, 12 - n + 1) & Left(ostr, n - 1) gs = Application.WorksheetFunction.Rept("@,", 11) & "@" arr = Split(Format(astr, gs), ",") If IsNumeric(TextBox1.Value) Then a = (TextBox1.Value Mod 12) Label1.Caption = arr(a) End If End Sub 用select case 语句的代码 Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub dstr = "龙" '今年的属相 ostr = "鼠牛虎兔龙蛇马羊猴鸡狗猪" n = InStr(ostr, dstr) astr = Right(ostr, 12 - n + 1) & Left(ostr, n - 1) If IsNumeric(TextBox1.Value) Then a = (TextBox1.Value Mod 12) + 1 Select Case a Case Is = 1 Label1.Caption = Mid(astr, a, 1) Case Is = 2 Label1.Caption = Mid(astr, a, 1) Case Is = 3 Label1.Caption = Mid(astr, a, 1) Case Is = 4 Label1.Caption = Mid(astr, a, 1) Case Is = 5 Label1.Caption = Mid(astr, a, 1) Case Is = 6 Label1.Caption = Mid(astr, a, 1) Case Is = 7 Label1.Caption = Mid(astr, a, 1) Case Is = 8 Label1.Caption = Mid(astr, a, 1) Case Is = 9 Label1.Caption = Mid(astr, a, 1) Case Is = 10 Label1.Caption = Mid(astr, a, 1) Case Is = 11 Label1.Caption = Mid(astr, a, 1) Case Is = 12 Label1.Caption = Mid(astr, a, 1) End Select End If End Sub
一般来说是农历大些 因为一般情况下农历生日都在公历生日前
这个是根据纳甲,卦配干支,取某支作为卦主属相的。年龄用属相推。