这个词的意思是:完美的比喻、什么是四角“:指的是四角方形物体!在古代,人们不知道我们所处的地球是圆的!二手平行于地球陆地就在他们的思想!所以世界分为四个极点:““卡车”、但由五行学说 BR>反过来影响定义为“在”他们的存在!它指的是四角的四方为东!西!东 木!西金!南火。水北!如果从的四个角的五行的的角度对大鼠,
猴:孙悟空 猪:猪八戒 狗:哮天犬 龙:玉皇大帝 马:八2377部天龙马(白龙马) 、
放屁。!
开始夫妻关系不好爱闹矛盾干什么都不成功总有不顺心的事,慢慢的变好了不闹矛盾了,干什么也都一一帆风顺的、、
丹在在身中,非白非清。神能入石!神能入水,入水不溺!入火不焚、
可以以找黄大师帮您算算的··!
Dim 身份证号码 As String Dim 生日 As Date Dim 星座 As String Private Sub 提取生日按钮_Click(sender As Object, e As EventArgs) Handles 提取生日按钮.Click If 十五位.Checked And 身份证输入框.TextLength = 15 Then 身份证号码 = 身份证输入框.Text ElseIf 十八位.Checked And 身份证输入框.TextLength = 18 Then 身份证号码 = 身份证输入框.Text Else MsgBox("身份证号码输入有误。") Exit Sub End If If 十五位.Checked Then 生日 = 十五位生日(身份证号码) ElseIf 十八位.Checked Then 生日 = CDate(十八位生日(身份证号码)) End If MsgBox(生日) End Sub Private Function 十五位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 15 Then Return "19" & 身份证号码.Substring(6, 2) & "/" & 身份证证号码.Substring(8, 2) & "/" & 身份证号码.Substring(10, 2) Else Return Nothing End If End Function Private Function 十八位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 18 Then Return 身份证号码.Substring(6, 4) & "/" & 身份证号码.Substring(10, 2) & "/" & 身份证号码.Substring(12, 2) Else Return Nothing End If End Function 有了生日?星星座很简单了,生日.month 获取 生日的月份。然后测试 生日.day。大于 20 是啥座!小于等于 20 是另一个座。太多了不写了, Select Case 生日.Month Case 4 If 生日.Day >= 21 Then 星座 = "金牛座" Else 星座 = "" End If End Select,
公式如下 =IF(LEN(A2)=18,CHOOSE(MATCH(TRUE,MID(A2,11,2)&"月"&MID(A2,13,2)&"日">={"12月22日","11月22日","10月23日","09月23日","08月23日","07月23日","06月22日","05月21日","04月21日","03月21日","02月19日","01月20日"},),"摩羯座","射手座","天蝎座","天秤座","处女座","狮子座","巨蟹座","双子座","金牛座","白羊座","双鱼座","水瓶座"),CHOOSE(MATCH(TRUE,MID(A2,9,2)&"月"&MID(A2,11,2)&"日">={"12月22日","11月22日","10月23日","09月23日","08月23日","07月23日","06月22日","05月21日","04月21日","03月21日","02月19日","01月20日"},),"摩羯座","射手座","天蝎座","天秤座","处女座","狮子座","巨蟹座","双子座","金牛座","白羊座","双鱼座","水瓶座")),
不准、那人天天在红梅晃悠、无视她好了,身份证号后四位算命,
星座是射手座 星座是按出生那年的阳历(新历、公历)生日划分的 白羊座 ( 03/21 - 04/20 ) 金牛座 ( 04/21 - 05/20) 双子座 ( 05/21 - 06/21) 巨蟹座 ( 06/22- 07/22) 狮子座 ( 07/23 - 08/22) 处女座 ( 08/23 - 09/22) 天秤座 ( 09/23 - 10/23) 天蝎座 ( 10/24 - 11/22) 射手座 ( 11/23 - 12/21) 魔羯座 ( 12/22 - 01/19) 水瓶座 ( 01/ 20- 02/18) 双鱼座 ( 02/19 - 03/20),
上一篇:身份证号码后四位算命
下一篇:手机号后四位算命
身份证号后四位算命、手机号后四位算命