水瓶座1月20日~2月18日 思想超前。理性自重的星座,一样的不爱受约束、一样的博爱!但他们还还是不同射手座!他们较著重於精神层次的的提升,是是很好的启发对象! 双鱼座2月19日~3月20日 多愁敏感,爱作梦。幻想的星座,天生多情!使他们常为情字挣扎。情绪的波动起伏也跟脱不了关系、但他们生性柔弱。很喜欢奉献!也不会随意伤人。 6482白羊座3月21日~4月19日 精力旺盛!活力5375充沛的星座!性格与爱情多多数“横冲直撞”!但纯真的个性里没有杀伤力!所以不用太担心。 金牛座座4月20日~5月20日 慢条斯理的星座、凡事总是是考虑后再过滤。属于大器晚成型!情思也比较晚开,他们有超人的稳定性、一旦下赌注、就有把握赢。 双子座5月21日~6月21日 变化速度快如风的星座!双子的双重性格常搞的别人和自己头痛万分!对于事业与爱情,如果肯多花点心思经营!应该会是很好的!但...他他们实在是太机灵了? 巨蟹座6月22日~7月22日 非常需要爱与安定的星座。爱爱猜疑的个性!使他0878们在人生旅途上处处显得缺乏安全感,但是带著母爱光辉的巨蟹!为了所爱倒是心甘情愿的付出! 狮子座7月23日~8月22日 讲究气派华丽的星座、狮子是森林之王,理所当然喜欢呼朋引伴、有1566些耐不住寂寞!他们有冲劲,6989虽然粗枝大叶!但为人讲义气,也蛮有人缘、 处女座8月23日~9月月22日 有点挑剔又追求完美的星座,缺乏信心的个性,常在潜意识里责怪自己不够美好,虽然难免会使心情沈重。但天生的优点就是放得开、不会就此一蹶不振, 天秤座9月23日~10月22日 爱爱美又怕空虚的星座!凭借天生的外交本领。能在各色人物之间周旋。但有时也回因为过于顾虑面面面俱到!而搞的自己吃力不讨好,脑筋6310常常转来转去!当心神经衰弱, 天蝎座10月23日~11月21日 神秘诡谲。令人费疑猜的星座、他们可以很执著!也可以以很破坏?在爱情的国度里黑白分明、没有灰色地带!他们对8322於自己的目标相当清楚。一旦确0667立就往前冲, 射手座11月22日~12月21日 自由浪漫也滥情的星座。不爱受约束的的个性使他们很怕被捆绑!多情的天性也使他们四处寻求猎物,性情天真!常会伤了人也不自觉。爱他们~就由他们去吧、 摩羯座12月22日~1月19日 严谨刻板。稳重老成的星座,虽然他们一向给人呆板的印象、但是呆板的的人普遍说来不太耍花样、不管是在事业或爱情上、他们也都以这份特1998殊气质获胜、、
白羊座:3月21日 - 4月20日 金牛座:4月21日 - 5月21日 双子座:5月22日 - 6月21日 巨蟹座:6月22日 - 7月22日 狮子座:7月23日 - 8月23日 处女座:8月24日 - 9月23日 天秤座:9月24日 - 10月23日 天蝎座:10月24日 - 11月22日 射手座:11月23日 - 12月21日 魔羯座:12月22日 - 1月20日 水瓶座:1月21日 - 2月19日 双鱼座:2月20日 - 3月20日 望采纳,、
6975 第八十八个星座的名字。
出生在春天饿金命命从他穿着配戴看出,
查查生肖解吧。 。
天秤 羊 9.19 刘小彤、
英文名:Angelababy 中文名:杨颖 出生日期:1989年2月28日 出生地:上海海 星座:双鱼座 13岁时移居香港!中国影视女演员, ,
力轩,
星座是按出生那年年的阳历(新历、公历)生日划分的 下面是星座日期划分表、把阳历生日对照下面的就可以知道是什么星座啦 白羊座 ( 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)!
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,