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，

　　大哥、你会玩塔罗牌吗，真是无语了~~~~一看就知道没玩过塔罗的人、先了解下塔罗牌再说！手相田字纹

　　你计算生日的基础数据是什么、。。、！，，。、 　　补充：你那是6483身份证吧。生日：=text(mid(a1,7,8),"0000-00-00") 　　年龄：=datedif(text(mid(a1,7,8),"0000-00-00") 　　年龄：=datedif(,today(),"y")，手相田字纹图解

　　星座与出生日期的对应关系 （阳历） 　　白羊座：3月21日 - 4月2稜日 　　　　金牛座：4月21日 - 5月20日 　　　　双子座：5月21日日 - 6月21日 　　　　巨蟹座：6月22日 - 7月22日 　　　　狮子座：7月23日 - 8月22日 　　　　处女座：8月23日 - 9月22日 　　　　天秤座：9月23日 - 10月22日 　　　　天蝎座：10月23日 - 11月21日 　　　　射手座：11月22日 - 12月21日 　　　　魔羯座：12月22日 - 1月19日 　　　　水瓶座：1月20日 - 2月18日 　　　　双鱼座：2月19日 - 3月20日!手相男有多条婚姻线

　　阳历生日是11月11号。是天蝎座：10月24日～11月22日 星座是按阳历生日日期划分的。、手相的三条线

　　1973年 十月 二十四。是农历（阴历），转换成、公历（阳历）：1973年 11月 18日 　　星座：天蝎座 　　星座按阳历（即公历，国历，新历）划划分的、星座以阳历出生日期为准： 　　天蝎座： 10月24日─11月22日 　　天蝎座 　　天蝎座属于水象星座！在象征冥王星的生死神普鲁托守护下，拥有强韧的生命力及永不知倦的充沛精力！胆大而心细、做事常凭灵感。天蝎座的性格就7911像流动的水一般!具有很好的适应性、为获得更好更棒的结果，会全心全意投入工作！不达达目的誓不罢休!在精神上具有强烈追3108根究底的深索心, 　　不断自我要求的天蝎座、神秘秘的内在世界常让人无法理解!却具有可以探知7742人心深处的超感应力量，所以天蝎座的人不管做什么事都有始有终。坚韧的意志力是最强大的武器、一旦拥有目标就不^畏畏艰难去实行！直到达成自己预定的目标为止。旺盛的战斗力非一般星座所及。、手相的人间线在哪里

　　星座是由阳历日期确定的，1996年11月23那天的阳历日期是1997年1月2日。那天的星座是摩羯座， 　　，手相的依据

　　M： 　　　　吴亦凡（1990年11月6日）天蝎座。队内职务：EXO-M队长、Rapper 　　　　鹿晗（1990年04月20日）白羊座！队内职务：M主唱。副领舞 　　　　张艺兴（1991年10月07日）天秤座。队内职务：M主领舞！副主唱。乐器担当 　　　　黄子韬（1993年05月02日）金金牛座,队内3888职务：Rapper。武术担当。老小 　　　　金钟大（1992年09月21日）处女座！队内职务：M主唱 　　　　金秀敏（1990年03月26日）白羊座！队内职务：副主唱。副领舞！流汗担当 　　　　K： 　　　　金俊绵（1991年05月22日）双子座！队内职：EXO总队长、EXO-K队长、副主唱，妈妈担当、温柔王 　　　　卞白贤（1992年05月06日）金牛座。队内职务：K主唱 。气氛担当，眼线担当 　　　　朴灿烈（1992年11月27日）射手座、队内职务：Rapper！门面担当、气氛担当！身高担当。捧场担当 　　　　度庆洙（（1993年01月12日）摩羯座？队内职务：K主唱 　　　　金钟仁（1994年01月14日）摩羯座！队内职务：总领舞、全队主领舞、性感担当 　　　³⁴⁸⁹　吴世勋（1994年04月12日）白羊座、队内职务：K领舞！Rapper！忙内担当！手相的准确性

　　星座按照出生日期：阳历2月2日的 　　星座：水瓶座 　　星座特点：自由博爱 　　生日范围：1月20日-2月18日 　　四象属性：风 　　掌管宫位：第十一宫 　　阴阳属性：阳性 　　最大特征：求知 　　主管行星：天王星 　　幸运颜色：古铜色 　　吉祥饰物：黑珍珠 　　幸运号码：22 　　开运金属：蛋白石 　　表现：创新！时尚尚 　　优点：求新求变？好奇心强！博爱、有远见！ 　　缺点：多变！叛逆。倔强。自我中心。，手相的原理根据出生日期计算星座

你可以以把星座和血型分别用数值去代替？然后用R语言中的cor(x,y,method = c("pearson", "kendall", "spearman")来计算！一般不能用pearson、这种方法适用于连续资料！后两种都可可以提供相关程度的一定的参考，， 、、手相的婚姻线过短模糊