白羊座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水象星座 星座查询,十二星座性格查询,12星座日期查询 这里是星座休闲吧啊 不好意思了 祝你好运吧,、、
星座比重是用来形容两个星座的组合中哪一位比较具有优势、占占主导地位的一个词 : 语、例如:在双鱼和狮子的星座比重是40:60。意思思就是双鱼佔40分!狮子佔60分,说明 : 狮子比较容易占上峰处于俩人中的领导位置、双鱼则处于跟随的地位,如果男性的星座 : 比2839重比女性高?则会出现阳盛阴衰的倾向,反之,则会出现阴盛阳衰的局面。 、当代命理八字高手
星座比重是用来形容两个星座的组合中哪一位比较具有优势!占主导地位的一个词语. 例如:在双鱼和狮子的星座比重是40:60!意思就是双鱼占40分、狮子占60分、说明狮子比较容易占上峰处于俩人中的领导位置!双鱼则处于跟随的地位。 如果果男性的星座比重比女性高?则会出现阳盛阴衰的倾向。反之。则会出现阴盛阳衰的局面,。当代国医大师
摩羯座金牛牛座处女座天蝎座狮子座!当代大学生八字真经
点击你自己、随便选一个好友、就就有一组数据了哦!当代实战风水大师排名
、。、测你妹啊,每年都有处女座的!当代房屋风水大师
手机在摩羯座生活中所占比重:80% 对于数码产品!摩羯座都有着莫名的好感、或许是天生就有着着对于新科技的喜爱之情吧,大摩羯觉得2567简直没有比这更方便,快捷!迅速!有效的信息获取方式了、在他们眼里。手机就是个天才的创造!网络更是!二者的结合简直堪称完美、!当代易学大师
两个标签!两个Text Public Function Constellation(mDate As Date) As String '星座 Constellation = Mid("摩羯水瓶双鱼白羊金牛双子巨蟹狮子处女天秤天蝎射手摩羯", (Month(mDate) + IIf((Day(mDate) - (19 + Int(Mid("102123444533", Month(mDate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座" End Function Public Function GetCNum(d As Date) As Integer Select Case Constellation(d) Case "白羊座" n = 0 Case "金牛座" n = 1 Case "双子座" n = 2 Case "巨蟹座" n = 3 Case "狮子座" n = 4 Case "处女座" n = 5 Case "天秤座" n = 6 Case "天蝎座" n = 7 Case "射手座" n = 8 Case "摩羯座" n = 9 Case "水瓶座" n = 10 Case "双鱼座" n = 11 End Select GetCNum = n End Function Private Sub Text1_KeyPress(KeyAscii As Integer) Dim d As Date If KeyAscii = 13 Then d = Text1.Text strConstellation = Constellation(d) Select Case Constellation(d) Case "白羊座" s = "平时活力十足的你,今天7194却变得混身没劲?不想让感情只是三分钟热度、就仔细想想该如如何经营?偶偶尔也要培养气质?去买本好书吧、今今天没啥冲劲,不妨低调沉潜。伺机而动、" Case "金牛座" s = "会接触不少人。记得8274放开胸怀!别太闷了。睁大眼睛瞧、新对象或或许就出现啰,一个轻轻松的聚会场合令你破费!工作:今天会和不少人开会,互动频繁。" Case "双子座" s = "无往不利,全力打拼!想让你安定下来,今天是个好时机!平时花钱很随兴的你!突然想想作财务规划?今天天会做一项重要决策!相信自己准没错!" Case "巨蟹座" s = "别老待在家里!今天是出外走走的好时机!和亲爱的他0255到户外踏青去,有场聚会将会让你破费!提升自己的竞争力!应接触些平时不懂的业务。" Case "狮子座" s = "收起尖锐的利爪。今天凡事好商量!强势的狮子成了温柔的小猫!只想依偎着心爱的他。会为家人购买一些些小礼物。有人找你帮忙处理公务!你不好意思拒绝," Case "处女座" s = "拓展生活圈!建立新关系的0555好时机?单身的1104人将感到特别地孤单!很期盼爱情降临、和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见,具有客观。冷静判断力的一天,对自己理念的坚持、让你在态度上也强势了起来。之前投资的的都有获得回报的迹象?今天天你让人感觉成熟稳重!可可托付重任的样子!" Case "天蝎座" s = "顺路经过感兴趣的店,不妨进去看看。不要排斥相亲或是朋友介绍!也许会遇到不错的的人选唷。适合出门逛街买些秋冬用品,初次相见的人特别值得注目、你从身上可学到不少东西!" Case "射手座" 2098 s = "年长的朋友可望对你提出有益的建言、今天是个适合向亲密朋友吐露心事的日子,为了讨好情人,不不惜打种脸充胖子、要注意对长辈或年纪较长者。要比平常更更客气一点的言词相待," Case "摩羯座" s = "不论自己心情如何都要隐藏起来,多保持笑容才拉近与他人的关系、即使是亲密的人、还是要尊重对方的自尊心!真心诚意帮助别人,也是为自己开运。为了处理别人的事!自己的事都没做到到一天就结束了," Case "水瓶座" s = "是个不能一一心二用的日子,顾得了东就顾不了西!力量宜集中在一件事物上。看人不能只看外表,小心有跌破眼镜的时候。一感到苗头不对,1880就要有修正计划的应变措施,心急的要求成果、反而越搞越乱,其实慢慢做的话。倒3269是还能蛮顺利就解决了," Case "双鱼座" s = "陶醉于玩乐的气氛中!让你很high。热情参加朋友邀约的轻松聚会。会有意想不到的恋4642情发展?吃喝玩乐的开销颇大。小心控制,下班下课后的约会,休闲、可将压力一口气解消掉了。" End Select Label1.Caption = strConstellation & vbCrLf & s End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Dim d1 As Date, d2 As Date If KeyAscii = 13 Then arr = Array(Array(90, 64, 86, 22, 94, 65, 83, 44, 93, 25, 84, 46), _ Array(62, 91, 83, 41, 16, 94, 48, 85, 66, 93, 22, 76), _ Array(83, 42, 91, 67, 79, 20, 94, 63, 80, 39, 96, 24), _ Array(26, 83, 63, 94, 36, 82, 24, 96, 45, 84, 59, 94), _ Array(92, 22, 87, 43, 89, 63, 84, 30, 93, 63, 81, 44), _ Array(66, 93, 19, 86, 57, 96, 44, 82, 25, 94, 39, 83), _ Array(82, 47, 90, 17, 77, 46, 91, 64, 77, 21, 94, 64), _ Array(45, 87, 62, 92, 19, 76, 62, 94, 44, 58, 23, 97), _ Array(91, 65, 82, 47, 93, 23, 76, 35, 94, 64, 77, 23), _ Array(20, 96, 44, 78, 55, 97, 27, 82, 66, 96, 46, 78), _ Array(82, 21, 92, 59, 79, 44, 90, 22, 78, 43, 95, 66)) d1 = Text1.Text d2 = Text2.Text n1 = GetCNum(d1) n2 = GetCNum(d2) Label2.Caption = arr(n1)(n2) End If End Sub,当代易学大师排名
我用的人生日历上面自带的星座运程啊。 、当代易学界莫亚排名测测我的真实星座比重
不准!逗你玩的!当代易经大师