这个有难度吗 星座判断无非是根据生日的 月份,日期 这两个来判断。 两个思路: * 将星座信息储存,每个星座都包含指定的日期范围,然后对生日判断 * 直接对生日判断,首先判断月份,可以简单判断处于那几个星座,然后判断日期,这就确定了具体的星座 over
亲,星座是按阳历(公历、新历)日期划分的,首先你得知道你的阳历出生日期,然后对照下面的资料。公历和农历的查询,可以查看通过在线电子万年历。 白羊座 3月21日-------4月19日 金牛座 4月20日-------5月20日 双子座 5月21日-------6月21日 巨蟹座 6月22日-------7月22日 狮子座 7月23日-------8月22日 处女座 8月23日-------9月22日 天秤座 9月23日------10月23日 天蝎座 10月24日-----11月22日 射手座 11月23日-----12月21日 摩羯座 12月22日------1月19日 水瓶座 1月20日-------2月18日 双鱼座 2月19日-------3月20日
很简单啊,把每个星座写成函数,然后一个判断他输入的日期,调出响应的函数就可以了。
-----------------------------------------------按你贴的图 B12公式: =VLOOKUP(B7&TEXT(B8,"00"),$L$2:$M$14,2,1)
星座按阳历划分 你是九一年十二月初九的生日 阳历也就是1992年1月13日 所以你是摩羯座 我最好的朋友就是摩羯座呢础性格不错哦 我是农历1980年9月
出生时间:1986-10-06 05:30:00 (GMT +8:00) 出生地:安徽-安庆 (117:02:E , 30:31:N) 宫位制:Placidus -------------------------------------------------------------------------------- 第01宫:天秤03°18' 第02宫:天蝎01°11' 第03宫:射手01°40' 第04宫:摩羯03°29' 第05宫:水瓶05°19' 第06宫:双鱼05°44' 第07宫:白羊03°18' 第08宫:金牛01°11' 第09宫:双子01°40' 第10宫:巨蟹03°29' 第11宫:狮子05°19' 第12宫:处女05°44' -------------------------------------------------------------------------------- 太阳:[01宫] 天秤12°21' 月亮:[02宫] 天蝎10°03' 水星:[02宫] 天蝎02°41' 金星:[02宫] 天蝎18°38' 火星:[04宫] 摩羯28°18' 木星:[06宫] 双鱼14°48' (逆行) 土星:[03宫] 射手05°47' 天王:[03宫] 射手19°00' 海王:[03宫] 摩羯03°10' 冥王:[02宫] 天蝎06°18' 北交:[07宫] 白羊20°52' 上升:[01宫] 天秤03°18' 天顶:[10宫] 巨蟹03°29' 你的命主星金星,金星座落在你命盘的第二宫天蝎座里。 一宫主即命主(金星)落入本命二宫对于学业是非常有利的,而且这些人被赋予了多种出众的天赋。他们天生就对宗教信仰感兴趣。他们拥有很强的人格魅力,除此之外,他们口头表达能力强,而且善于用眼神与对方交流。与家人相处融洽。相位不佳时,这些人容易口蜜腹剑。 命主星金星落在天蝎座:善於掌控人心和局面,能把人治理的服服贴贴。浑身散发出神秘感和性魅力。宁愿与人纠缠到底,也不甘被人欺负或踩在你的头上。能一针见血的洞悉问题症结。擅长解决问题。喜恶分明。 你的上升位于天秤座 上升--你的人格面具 上升星座即是你出生时,东方地平线与黄道交界处升起的第一个星座。上升星座是我们的的外在表现,是外界所觉知到的你。因此由上升星座也可得知你表达自我的方式。通常一个人的太阳及上升星座都不会一样,而这就是我们之所以称上升星座为我们的“人格面具”。大部分时候,我们的太阳是隐藏在上升星座背后的。 上升星座主宰了一个人主要的个性特质、与生俱来的性格以及给人的第一印象。上升星座所透露的不只是我们言谈、行为的模式,我们的穿着、发型、外表等等皆受其影响。 -------------------------------------------------------------------------------- 上升星座在天秤座--优雅和谐的沟通者 1.具有优雅动人的气质。 2.努力维持良好的人际关系,具有同理心。 ------------------------------------------......余下全文>>
根据十二星座日期表和你的阳历生日查询(如下):可知,你是 “天秤座”~ 白羊座: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日
1999年8月3日出生是甚么星座
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
在百度搜索星盘,输入自己的出生日期时间地点就可以了