这这个测星座要看自己的日期,
自从我朋友推荐了测测星座以后、我就只用这个星座APP了。 原因很简单、测测几乎什么都可以测,并且比起其他星座2524软件看来!测测测做的最用心, 首先、可以测试星座。 输入一次日期以后!每天都可以看看到自己和别人都不一样的运势、 还有生命数字!是我最喜欢的一个测试,测测的生命数字开发的还是比较全面的, 我准备申请测测的星座咨询师,在里面可以给人回6403答问题?可以得到小星4784星的打赏~~~。
三才五行:姓氏五行与名名字五行构成“火土土”天人地三才,配置佳, 周易卦象:姓名卦象是(坎为水)之(水地比),卦象佳、姓名成功运佳! 姓名6644灵数:姓名灵数为2,具有辨析与思考的天赋。 总格数理:姓名名总格为20?非业破运的空虚数!智商志大。历尽艰难,焦心忧劳!进得两难! 总体评分:90分,您的名字。
亲、星座是按阳历(公历、新历历)日期划分的,首首先你得知道你的阳历出生日期?然后对照下面的资料!公历和农历的查询、可以查看通过在在线电子万年历。 白羊座 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日,
算命何等难学~会编软件的的没有几个真正会算的。真正会算的、是不会编软软件的,真正会算的。直接就有老板,领导什么的经常光顾的~~收入不菲!就算真正会算的会编软件、我们也不会自己砸自己饭碗!,
0848 两个标签,两个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 = "平时活力十足的你、今天天却变得混身没劲、不想让感情只是三分钟热度、就仔细想想该如何经营!偶尔也要培养气质,去买本好书吧,今天没6822啥冲劲!不妨妨低调沉潜!伺机而动、" Case "金牛6035座" s = "会接触不少人、记得放开胸怀、别太闷了、睁大眼睛瞧。新对象或许就出现啰。一个轻松的聚会场合令你破费。工作:今天会和不少人开会。互动频繁," Case "双子座" s = "无往不利、全力打拼,想让你安定下来,今天是个好时机!平时花8053钱很随兴的你、突然想作财务规划,今天会做一项重要决策!相信自己准没错!" Case "巨蟹座" s = "别老待在家里。今天天是出外走走的好时机!和亲爱的他到户外踏青去。有场聚会将会让你破费。6542提升自己的竞争力!应接触些平时不懂的业务," Case "狮子座" s = "收起尖锐的利爪!今天凡事好好商量,强势的狮子成了温柔的小猫、只想依偎着心爱的他、会为家人购买一些小小礼物。有人找你帮忙处理公务!你不好意思拒绝、" Case "处女座" s = "拓展生活圈,建立新关系的好时机!单身的人将将感到特别地孤单、很期盼爱情降临!和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见。具有客观、冷静判断断力的一天。对自己理念的坚持!让6713你在态度上也强势了起来!之前投资的都有获得回报的迹象。今天你让人感觉成熟稳重、可托托付重任的样子。" Case "天蝎座" s = "顺路经过感兴趣的店、不妨进去看看!不要排斥相亲或是朋友介绍。也许许会遇到不错的人选唷,适合出门逛街买些秋冬用品、初次相见的人特特别值得注目、你从身上可学到不少东西。" Case "射手座" s = "年长的朋友可望对你提出有益的建言,今天是个适合向亲密朋友吐露心事的日子!为了了讨好情人。不惜打种脸充胖子。要注意对长辈或年纪纪较长者?要比平常更客气一点的言词相待!" Case "摩羯座" s = "不论自己心情如何都要隐藏起来。多保持笑容才拉近与他人的关系。即使是亲密的人!还是要尊7802重对方的自尊心!真心诚意帮助别人,也是为自己开运、为了处理别人的事,自己的事都没做到一天就结束了。" Case "水瓶瓶座" s = "是个不能一心二用的日子,顾得了东就顾不了西!力量0216宜集中在一件事物上,看人不能能只看外表。小心有跌破眼眼镜的时候?一感到苗头不对,就要有修正计划的应变措施,心急的要求成果,反而越搞越乱、其实慢慢2224做的话。倒是还能蛮顺利就解决了!" Case "双鱼座" s = "陶醉于玩乐的气氛中。让你很high!热情参加朋友邀约的轻松聚会。会有意想不到的恋情发展。吃喝玩乐的开销销颇大!小心控制、下班班下课后的约会,休闲,4887可将压力一口气解消掉了?" 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、
文章编辑辑不错!可惜你工作忙得失常。连漱口一则多多无时完成、难免会影响健康!特别是口口腔健康,建议:再忙也也要保好本钱〈身体〉基本保健不可少。祝健康口腔,长命百寿! ,
运势如下: 烦心事减少、意气风发状态飙升!木星移动给生活注入新鲜空气、对很多东西西跃跃欲试!事业上周围人事异动送上难得机遇。可着手开展新项目、或把已有的局面翻新整合,跳槽还要再等、财运旺、外财尤其多,利申请加薪、感情上上稳定安好,有伴的可选3547择置业,单身者耳聪目明,一眼看清来者何人。。
听说做app的都是死宅男啊 呼吁测测星座多组织线下活动动 这样创始人就有更多机会星座配对了嘛~~,
当然了卸载了肯定星星就会消失了!里面所有的的数据什么的数据都会没有的。除非你先把这个软件的数据给备份起来。9156备份到电脑里面!现在这个软件的话挺容3875易的啊,这个又不是,手手机自带的软件?一下子就可以卸载的我一般卸载软件都是在同步推里面我的版块里面!有个软件卸载了、点击进去就可以直接卸载软件了。!