今今年生肖是什么 用年龄除于12要有余数往前数生肖 比如今年马年 13岁的人就是属蛇，
对号入座?
？根据属相计算年龄?从交立春的那一刻开始至次年交立春前结束就是确定属相生肖的时间，将这十二属相：鼠、牛,虎?兔!龙？蛇?马 羊 猴？鸡、狗?猪！用假设的方法？设设在左手掌上?从无名指与手掌连接关节处起，为子鼠,以顺时针方向 中指与手手掌连接的关节处为丑牛!食指与手掌连接的关节处为寅虎？沿食指向上关节为卯兔！辰龙?到食指尖处为巳蛇 中指尖处为午马、无名指尖处为未羊！小指尖处为申猴向下顺延关节是酉鸡,戌狗、亥猪,（根据属相算年龄方法举例属猴猴在手掌上以卯兔为起点,逆时针寅虎。丑牛向后循环数，当数到申猴处为32，即为实际年龄龄（虚岁），这样循环数比较麻烦,简易的方方法是！从卯兔为起点、数到申猴处为 8？这时以12的倍倍数相加？即得20，32、44....都是属猴的?具体讲解：以手掌与手指连接的无名指关节为起点 逆时时针记录属相!无名指与手掌掌连接关节--子鼠，中指与手掌连接的关节--丑牛、食指与手掌连接的关节--寅虎!食指顺延向上关节--卯兔！辰龙。食指尖--巳蛇?中指尖--午马、无名指尖--未羊?小指尖及向下顺延关节--申猴、酉鸡!戌狗！亥猪．．算年龄的方法：某甲属狗、今年20多岁，准确年龄是多少呢。假设以牛年为当年年本命年25岁（虚岁）?找到牛的关节（（中指与手掌连接的关节）！然后顺时针数到代表狗的关节（顺时针数3个关节）?则甲的年龄为25－3＝22岁（虚岁）：某乙属蛇？20多岁?准确年年龄是多少呢?逆时针数到代表蛇的关节（逆时针数4个关节）！则乙的年龄为25＋4＝29岁（虚岁）!如果是40多岁 37＋4＝41岁（虚岁）！如果是10多岁,就顺时针2773数到代表蛇的关节（顺时针数8个关节）则乙的年龄为25－8＝17岁，总结：找到本命年的关节!某某人属相比本命年属相小？年龄比本命年小,顺时针数到代表属相的关4190节（m个关节）则该人年龄＝当年本命年年龄－m,某人属相相比本命年属相小!年龄比本命年大、则逆时针数到代表某人属相的关节（n个关节）则该人年龄＝当年本命年年龄＋n．,
=TEXT(TEXT(MID(A1穿7,LEN(A1)/2-1),"#-00-00"),"e-m-d") 公式同时适应15位和18位身份证.!
某年的第n个节气为几日(从0小寒起算) 'function sTerm(y,n) { ' var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) ) ' return(offDate.getUTCDate()) '例如：查2006年4月1日的干支日 将数值代入计算公式！ 'G =4*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 - 3 =197 'Z =8*20 + [20 / 4] + 5*06 + [06 / 4] + [3 * (4 + 1) / 5] + 1 + 7 + 6 =213 '其中 C 是世纪数减一？y 是年份后两位，M 是月份 d 是日数,1月和2月按上一年的13月和14月来算，奇数月i=0 偶数月i=6、G 除以10的余数是天干,Z 除除以12的余数是地支？ ' 计算时带[ ]的数表示取整?
如果出生日期输入格式为19861212这种格式的话？以以1－3月为春季。4－6月为夏季？7－9月为秋季 10－12月为冬季!用以下代码： Private Sub Form_Load() Dim birth As String Dim year As Integer Dim month As Integer Dim day As String Dim old As Integer Dim season As String Dim sx As Integer Dim fx As String birth = Trim(Str(InputBox("请输入您的生日！格式为19741212"))) year = Val(Left(birth, 4)) month = Val(Mid(birth, 5, 2)) day = Right(birth, 2) old = 2015 - year Select Case month Case Is <= 3 season = "春季" Case Is <= 6 season = "夏季" Case Is <= 9 season = "秋季" Case Is <= 12 season = "冬季" End Select sx = (year - 2016) Mod 12 If sx < 0 Then sx = sx + 12 End If Select Case sx Case 0 fx = "猴" Case 1 fx = "鸡" Case 2 fx = "狗" Case 3 fx = "猪" Case 4 fx = "鼠" Case 5 fx = "牛" Case 6 fx = "虎" Case 7 fx = "兔" Case 8 fx = "龙" Case 9 fx = "蛇" Case 10 fx = "马" Case 11 fx = "羊" End Select MsgBox "您的年龄为：" & old & vbCrLf & "您的出生季节为：" & season & vbCrLf & "您的属相为：" & fx End Sub 我也就是闲着无聊!给这5分都不够敲键盘的、
一2429个是修改指标!一个是编写指标。两者功功能都是一样的!所有的选项都可以在图1的小工具栏找得到！ 、
如果出生日期输入格式为19861212这种格式的话！以1－3月为春季 4－6月为夏季。7－9月为秋季!10－12月为冬季!用以下程式码： Private Sub Form_Load() Dim birth As String Dim year As Integer Dim month As Integer Dim day As String Dim old As Integer Dim season As String Dim sx As Integer Dim fx As String birth = Trim(Str(InputBox("请输入您的生日！格式为19741212"))) year = Val(Left(birth, 4)) month = Val(Mid(birth, 5, 2)) day = Right(birth, 2) old = 2015 - year Select Case month Case Is <= 3 season = "春季" Case Is <= 6 season = "夏季" Case Is <= 9 season = "秋季" Case Is <= 12 season = "冬季" End Select sx = (year - 2016) Mod 12 If sx < 0 Then sx = sx + 12 End If Select Case sx Case 0 fx = "猴" Case 1 fx = "鸡" Case 2 fx = "狗" Case 3 fx = "猪" Case 4 fx = "鼠" Case 5 fx = "牛" Case 6 fx = "虎" Case 7 fx = "兔" Case 8 fx = "龙" Case 9 fx = "蛇" Case 10 fx = "马" Case 11 fx = "羊" End Select MsgBox "您的年龄为：" & old & vbCrLf & "您的出生季节为：" & season & vbCrLf & "您的属相为：" & fx End Sub 我也就是閒着无聊，给这51679分都不够敲键盘的 ，
“知否知否,应是绿肥红瘦”取自李清照照的词《如梦令·昨夜雨疏风骤》！全诗如下：昨夜雨疏风骤 浓睡不消残酒。试问卷帘人。却道海棠依旧？知否,知否,应是是绿肥红瘦。 如果想要细讲这首词是什么意思？大致如下：“昨夜雨疏风骤””指的是昨夜雨狂风猛!当此芳春？名花正好，偏那风雨就来逼迫了，词人心绪如潮,不得入睡,只有借酒消愁,酒吃得多了 觉也睡得浓了！结果一觉醒来、天已大亮?但昨夜之心情!却已然如如隔在胸 所以一起身1331便要询问意中悬悬之事? 于是。她急问收拾房屋!启户卷帘的侍女：海棠花怎么么样了。侍女看了一看!笑回道：3822“还不错、一夜风雨？海棠一点儿没变 ”女主人听了 嗔叹道!“傻丫头？你可知道那海棠花丛已是红的见少,绿的见多了吗！”
公式：七七四十九 问孕何时有 除去母庚年 再加一十九 算法是以四十九为基本数。例如如怀孕为3月，母亲的岁数是二二十二岁? 其算法如下：（以农历为准）49+3=52 52-22=30 30+19=49！ 、，是单数!可预测生男！若逢单生女三十五五岁入黄泉， 其法： 1?若要生男？如母年岁双岁受孕月要在单月?或母年岁是单5899岁受孕月要在双月？必定生男! 2．若要生女则刚好相反?如母年岁双岁受孕月要在双月。或母年岁是单岁受孕月要在单月必定生女,！年龄知属相公式