1286 你可以去买合订本。
1.巨蟹座 虽然巨蟹很温柔体贴、也很很善解人意。很多人都喜欢向巨蟹诉说心事、只是是巨蟹相对比较内敛、也懂得为别人着想!很多心事都喜欢收藏在心了。让自己一个人承受。不想别人因为自己的事而困扰。所以以面对自己爱的感情?也一一样会隐藏着!没有足够的勇气说出来。一时怕是没有结果的爱!自己受打击!二是告诉8404了对方或许会令到对方困扰!2.狮子座 的确、狮子很会表白。不过正式,清楚的表面自己爱的心意也紧4058紧那么一次、对于很多情人!不管甜蜜与否都会问对方!你你是否爱自己,或着在浪漫的时刻在次表露露爱意、可以说爱天天挂在嘴边。而狮子不会!尤其和狮子相恋的人、更会会在意狮子的心意?因为狮子总把面子,自尊看得很重、在乎。爱都不随意表露在在脸上,就连爱也是那么的霸道。一点都不懂温柔!所以狮子的恋人才会有狮子究竟是是不是爱自己的疑问, 3.处女座 处女是一个习惯把感情藏得很深的星座!所以的生生活习惯都比较拘谨。注重礼仪。注重形象,就像贵族的小姐,少爷一样对自己的言行举举止都要很小心!有所谓贵族的条条款款约束着。即使一个微笑都必须很讲究,所以一般的心情都埋藏在心里。即使是爱!也是默默的爱着,所以处女座的人最多的就是暗恋对方、在默默等待爱的来临 8425 4.天蝎座 天蝎比较神秘、安静。话不多,脸上也没有多于的表情变化。可以说他把情绪影藏得很好。习惯用自己的神秘!迷人0291眼神跟他绝对有趣的人接触,玩味的探索其他人、没有任何的感情是让别人察觉到的。对人的感觉是真是假也无从探究、即1156便是产生了爱慕之心,也是隐藏的很好、只会增加和对方的接触。让彼此更加的的了解对方!只是天蝎的爱直到最后!天蝎不稍微透了、也未能察觉、!
这个跟星座无关、每个星座都有隐藏自己心事的秘密,我们只能用来参考和和解析。测自己的隐藏星座!
简易月亮星座换算表简易月亮星座换算表 太阳星座 1 2 3 4 5 6 7 8 9 10 11 12 白 金 双 巨 狮 处 天 天 射 摩 水 双 农历出生时 羊 牛 子 蟹 子 女 秤 蝎 手 羯 瓶 鱼 01日12:00-02日17:30 1 2 3 4 5 6 7 8 9 10 11 12 02日17:30-05日04:30 2 3 4 5 6 7 8 9 10 11 12 1 05日04:30-07日15:30 3 4 5 6 7 8 9 10 11 12 1 2 07日15:30-10日02:30 4 5 6 7 8 9 10 11 12 1 2 3 10日02:30-12日13:30 5 6 7 8 9 10 11 12 1 2 3 4 12日13:30-15日00:30 6 7 8 9 10 11 12 1 2 3 4 5 15日00:30-17日11:30 7 8 9 10 11 12 1 2 3 4 5 6 17日11:30-19日22:30 8 9 10 11 12 1 2 3 4 5 6 7 19日22:30-22日09:30 9 10 11 12 1 2 3 4 5 6 7 8 22日09:30-24日20:30 10 11 12 1 2 3 4 5 6 7 8 9 24日20:30-27日07:30 11 12 1 2 3 4 5 6 7 8 9 10 27日07:30-29日18:30 12 1 2 3 4 5 6 7 8 9 10 11 29日18:30-01日12:00 1 2 3 4 5 6 7 8 9 10 11 12 使用说明: 上表的日期都是以农历来计算。举例来说:一条辉为双双子座!代码为3。农历生日在15日00:30~17日11:30期间!所以对照,
了解幸运占卜的人都知道道星座占卜要结合星象,月象乃至部分地理情况才能较为准确的预测、有时甚至需要结合其它占卜。软件通常是说着玩的、,
两个标签!两个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 = "平时活力十足的你,今天却变得混身没劲、不想想让感情只是三分钟热度,就仔细想想该如何经营,偶尔也要培养气质!去买本好好书吧!今天没啥冲劲!0960不妨低调沉潜!伺机而动!" Case "金牛座" s = "会接触不少人,记得放开胸怀,别太闷了。睁大眼睛瞧!新对象或许就出现啰!一个轻松的聚会场合令你破费、工作:今天会和不少人开会、互动频繁!" Case "双子座" s = "无往不利!全力打拼、想让你安定下来、今天是个好时机!平时花钱很随兴兴的你、突然6742想作财务规划,今天会做一项重要决策,相信自自己准没错、" Case "巨蟹座" s = "别老待在家里、今天是1998出外走走的好时机?和亲爱的他到户外踏青去!有场聚会将会让你破费、提升自己的竞争力!应8544接触些平时不懂的业务?" Case "狮子座" s = "收起尖锐的利爪。今天凡事好商量、强势的狮子成了温柔的小猫,只想依偎着1659心爱的他,会为家人购买一些小礼物,有人找你帮忙处处理公务,你不好意思拒绝," Case "处女座" s = "拓展生活圈。建立新关系的好时机。单身的的人将感到特别地孤单、很期9999盼爱情降临!和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见、具有客观!冷静判断断力的一天,对自己理念的坚持!让你在态度上也强势了起来,之前投资的都有获得回报的迹象,今天你让人感觉成熟稳重、可托付重任的样子," Case "天蝎座" s = "顺路经过感兴趣的店!不妨进去看看,不要排斥相亲或是朋友介绍!也许会遇到不错的人选唷、适合出门逛街买些秋冬用品,初次相见的人特别值得注目、你从身上可学学到不少东西," Case "射手座" s = "年长的朋友可望对你提出有益的建言、7924今天是个适合向亲密朋友吐露心事的日子。为了讨好情人,不惜打种脸充胖子!要注意对长辈或年年纪较长者,要比平平常更客气一点的言词相待!" Case "摩羯座" s = "不论自己心情如何都要隐藏起来、多保持笑容才拉近与与他人的关系!即使是是亲密的人!3855还是要尊重对方的自尊心!真心诚意帮助别人。也也是为自己开运?为了处理别人人的事。自己的事都没做到一天就结束了," Case "水瓶座" s = "是个不能一一心二用的日子!顾得了东就顾顾不了西?力量宜集中在一件事物上、看人不能只看外表。小心有跌破眼镜的时候,一感到苗头不对、就要有修正计划的应变措施!心急的要求成果,0788反而越搞越乱?其实慢慢做的话!倒是还能蛮顺利利就解决了," Case "双鱼座" s = "陶醉于玩乐的的气氛中!让你很high。热情参加9197朋友邀约的轻松聚会,会有意想不到的恋恋情发展!吃喝玩乐的开销颇大、小心控制,下班下课后的约会!休闲,可将压力一口气解消掉了!" 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。
苏苏 天蝎 晴雪 巨蟹 如沁 9365双鱼 兰生 白羊 红玉 摩羯、
要要得知自己的上升星座!就得要先知道自己详细的出生日期。时间而且要精精准到时和分、还得要知道自己出生地 、 ,
金牛吧,之前在weixin 星座运势馆 里看过。不过有点记不清了。
你好 请问有什么方方法可以通过认证达人!
测自己的隐藏星座、测隐藏星座