测测星座没有客服么
- 怎样测星座
- "星座是按( 阳历 )公历出生生日期划分的!
如果还不知道阳历出生生日!请先把农历出出生年份日期转换为阳历?
星座查询出生日期(阳历)
白羊座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日、
!,
- 测测星座
- 星座是按照阳历历计算的、用你的阳历生日即你的出生日期对照下表就可以看出你的星座是什么白羊座 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月22日 天蝎座 10月23日─11月21日 射手座 11月22日─12月21日 摩羯座 12月22日─01月19日 水瓶座 01月20日─02月18日 双鱼座 02月19日─03月20日
- 怎么测星座
- 按生日来分,魔羯座 (12/22 - 01/19) Capricorn
水瓶座 (01/ 20- 02/18) Aquarius
双鱼座 (02/19- 03/20) Pisces
白羊座 (03/21 - 04/20) Aries
金牛座 (04/21 - 05/20) Taurus
双子座 (05/21 - 06/21) Gemini
巨蟹座 (06/22- 07/22) Cancer
狮子座 (07/23 - 08/22) Leo
处女座 (08/23 - 09/22) Virgo
天秤座 (09/23 - 10/23) Libra
天蝎座 (10/24 - 11/22) Scorpio
射手座 (11/23 - 12/21) Sagittarius
- 如何客服龙年属狗运势
- 自己注意点就行了吧。其实有些时候我也也矛盾、说着不信这些。很多时候确又害怕不好!想象也就是心里作用,运程?中国那么多人?同年同月同日同时出生的人那么多、难道运程都一样吗!又说5108什么八字!到底该信哪样。如如果真的是命里面注定的,应该想想躲躲不过不好运程把 不不如把心放平静点,不也都说八字天注定!运程4182靠后天吗
- 星座测性格有什么科学依据吗?我一直是不信星座的,但最近烦恼很多,正好看到星座测性格觉得出奇的准,而
- 因为这是把每个星座里许多人的共同点都罗列出来 但就每个个体而言,大多数基基本看着符合?里面总有或多或少的内容是不符合的、测测星座没有客服么
- 有什么软体应用测星座,测的最准确
- 测星座真的有用吗?
。
- 金牛客服真他妈是骗子
- 需要要办信用卡吗??
- 用人姓名可以测星座吗
- 不行啊。星座是按固定日期定的?名字字可以乱取啊,这么解释可以吗、
- 测星座是用新历还是农历?
- 是用新历、
- vb编个 测星座的程序
- 两个标签?两个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 = "平时活力十足的你 今天却变得混身没劲、不想让感情只是三分钟热度!就仔细想想该如何经营!偶尔也要1571培养气质 去买本好书吧、今天没啥冲劲、不妨低调沉潜,伺机而动,"
Case "金牛座"
s = "会接触不少人 记得放开胸怀 别太闷了。睁大眼睛瞧?新对象或许就出现啰?一个轻松的聚会场合令你破费?工作:今天会和不4659少人开会?互动频繁!"
Case "双子座"
s = "无往不利 全力打拼!想让你安定下来,今天是个好时机 平时花钱很随兴的你!突然想作财务规划,今天会做一项重要决策 相信自己准没错,"
Case "巨蟹座"
s = "别老待在家里?今天是出外走走的好时机!和和亲爱的他到户外踏青去 有场聚会将会让你破费!提升自己的竞争力!应接触些平时不懂的业务?"
Case "狮子座"
s = "收起尖锐的利爪?今今天凡事好商量?强势的狮狮子成了温柔的小猫 只想依偎着心爱的他,会为家人购买一些小礼物?6196有人找你帮忙处理公务 你0254不好意思拒绝!"
Case "处女座"
s = "拓展生活圈?建立新关系的好时机,单身的人将感到特别地孤单、很期盼爱情降临,和和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? "
Case "天秤座"
s = "对事情能够屏除偏见!具有客观?冷静判断力的一天、对自4711己理念的坚持、让你在态度上上也强势了起来,之前投资的都有获得回报的迹象?今天你让人感觉成熟稳重 可托付重任的样子!"
Case "天蝎座"
s = "顺路经过感兴趣的店,不不妨进去看看?不要排斥相亲或是朋友介绍,也许会遇到不错的人选唷,适合出门逛街买些秋冬用品?初次相见的人特别值得注目 你从从身上可学到不少东西!"
Case "射手座"
s = "年长的朋友可望对你提出有益的建言。4711今天是个适合向亲密朋友吐露心事的日子!为了讨好情人,不惜惜打种脸充胖子。要注意对长辈或年纪1438较长者、要比平常更客气一点的言词相待?"
Case "摩羯座"
s = "不论自己心情如何都要隐隐藏起来?多保持笑容才拉近与他人的关系 即使是亲密密的人?还是要尊重对方的自尊心,真心诚意帮助别人。也是为自己开运,为了处理别别人的事,自己的事都没做到一天就结束了,"
Case "水瓶座座"
s = "是个不能一心二用的日子,顾得了东就顾不了西,力量宜集中在一件事事物上!看人不能只看外表?0738小心有跌破眼镜的时候,一感到苗头不对!就要有修正计划的应变措施!心急的要求成果?反而越搞越乱!其实慢慢做的话?倒是还能蛮顺利就解决了?"
Case "双鱼座"
s = "陶醉于玩乐的气氛中?让你很high,热情参加朋友邀约的轻轻松聚会?会有意想不到的恋情发展!吃喝玩乐的开销销颇大。小心控制?下班下课后的约会。休闲 可将1439压力一口气解消掉了!"
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