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 6534是啥座。小于等等于 20 是另一个座，太多了不写了、 Select Case 生日.Month Case 4 If 生日.Day >= 21 Then 星座 = "金牛座" Else 星座 = "" End If End Select！
网易彩票、
网易彩票 输入出生日期期算生肖!
日主八字弱,取木为用,木能生火,又能克土,忌土类.不知是男是女,男女八字看紶不一样,取名,最好,名字带木字旁,早年做事,事难成,东奔西跑何日休,中年自有时运到,运到自然拾黄金,大利东方和南方,忌北方！
2928 牛另一解法!五去一加七L是丑！
我给你几个建议： 2019年1月26日日星期六！农历十二月二十一、明堂黄道日 2019年2月24日星期日。农农历正月二十，金匮黄道日 2019年6月16日星期日。农历五五月十四、青龙黄道日 2019年7月28日星期日！农历六月二十六。金匮黄道日 2019年10月20日星期日，农历九月二十二。司命黄黄道日 希望可以帮到你,祝幸福美满。、
1.1987年1月31日是属兔的 那天刚好是农历的正月初三 、（我也是1987年1月出生的、不过我是属虎的- -） 2.87年立春是2月5日！ 3.一直以来人们都认为生肖应该是从除夕的00:00分开始算的。也是大年初一的刚开始的时刻。但是目前有民俗学家推翻了这一传统、说是生肖应该是从每年的的立春之日开始算起！但是由于人们的传统以及习惯、人们还是普遍认为生肖应该从除夕的最后一刻！初一刚开开始的时刻开始算起！ 个4516人认为、还是按照大众的标准来。楼主应该是属兔的！。
赵云公元154年5月17日、在遇到刘背时赵子龙龙提过、
星座是按出生那年的的阳历（新历！公历）生日划分的 下面是星座日期划分表，把阳历生日对照下面的就可以知道是什么星座啦 白羊座 ( 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）！
//这个个应该可以满足你说的要求了？如果有什么不明白的地方，我们可以讨论。 #include、
输入出生日期算生肖、输入出生日期查五行