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 = "平时活力十足的你。今今天却变得混身没劲！不想让感情只是三分钟热度、就仔细想想该如何经营。偶尔也要3193培养气质,去买本好书吧，今天没啥冲劲、不妨低调沉潜！伺机而动、" Case "金牛座" s = "会接触不少人。记得放放开胸怀？别太闷了、睁大眼睛瞧！新对象或许就出现啰。一个轻松的聚会场合令你破费！工作:今天会和1582不少人开会？互动频繁！" Case "双子座" s = "无往往不利？全力打拼！想让4379你安定下来？今天是个好时机！平时花钱很随兴的你，突然想作财务规划、今天会做一项重要决策、相信自己准没错，" Case "巨蟹座" s = "别老待在家里！今天是是出外走走的好时机!和亲爱的他到户外踏青去，有场聚会将会让你破费、提升自己的竞争力。应接触些平时时不懂的业务," Case "狮子座" s = "收起尖锐的利爪。今天天凡事好商量,强势的狮子成了温柔的小猫，只想依偎着心爱的他、会为家人购1472买一些小礼物？有人找你帮忙处理公务、你不好意思拒绝！" Case "处女座" s = "拓展生活圈，建立新关系的好时机、单身的人将感到特特别地孤单？很很期盼爱情降临！和朋友共同讨论合资的计划?工作: 要妥善处理合作案的细节? " Case "天秤座" s = "对事情能够屏除偏见、具有客观！冷静判断力的一天、对自己理念的坚持、让你在态度上也强势了起来！之前投资的都有获得回报的迹象，今天你让人感觉成熟稳重，可托付1864重任的样子！" Case "天蝎座" s = "顺路经过感兴趣的店，不妨妨进去看看？不要排斥斥相亲或是朋友介绍、也许会遇到不错的人选唷！适合出门逛街买些秋冬用品！初次相见的人特别值得注目。你从身上可学到不少东西。" Case "射手座" s = "年长的朋友可望对你提出有益的建言！今天是个适合向亲密朋友吐露心事的的日子,为了讨4821好情人。不惜打种脸充胖子。要注意对长辈或年纪较长者，要比平常更客气一点的言词相待。" Case "摩羯座" s = "不论自己心情如何都要要隐藏起来。多保持笑容才拉近与他人的关系，即使是亲密的人！还是要尊重对方的自尊心。真心诚意帮助别人。也是为自自己开运,为了处理别人的事、自己的事都没做到一天就结束了！" Case "水瓶座" s = "是个不能一心二用的日子。顾得了东就顾不了西。力力量宜集中在一件事物上、看人不能只看外表！小心有跌破眼镜的时候、一感到苗头不对、就要有修正计划的应变措施，心急的要求成果，0140反而越搞越乱？其实慢慢做的话，倒是还能蛮蛮顺利就解决了，" Case "双鱼座" s = "陶醉于玩乐的气氛中，让你很high。热情参加朋友邀约的轻松聚会，会有意想不到的恋情发展，吃喝玩乐的开销颇大、小心控制，下班2435下课后的约会，休闲！可6571将压力一口气解消掉了！" 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,
怎么测八字？
命理理学也称四柱又称八字！是指人出生的时间、即年！月、日。时，在人用天干和和地支各出一字相配合分别来表示年？月！日！时、如甲子年、丙午月，辛丑日，壬寅时等。每柱两字！四柱共八字！所以四柱预测又称"批八字"！"测八字"。也叫四四柱推命、依照天干、地支阴阳五3741行属性之相生!相克的关系，推测人的吉凶祸福。如果你6170搞明白了其中的奥秘、那么自己批八字也完全是可能的、 天干有十个：甲，乙。丙、丁！戊！己。庚，辛，壬。癸。 地支有十二个：子。丑、寅，卯。辰！巳、午！未，申、酉、戌！亥， 二者5199顺序配合可以产生六十个单位！叫六十甲子，那生出生的年、月、日、时分别别用天干、地支配配合来表示？正好有八个字。因此叫生辰八字！又叫它是人的的四柱！ 具体介绍如下： 一，排年柱 年柱,即人出生的年份功干支来表示、注意：上一年和下一年的分界线是以立春这一天的交节时刻划分的,而不是以正月初一划分，如某人阳历2000年2月4日22点17分生,由于阴历2000年交立春是阳历2000年2月4日20点32分,因此此人的年柱为2000年之庚辰,而非1999年之已卯。 二！排月柱 月柱,即用干支表示人出生之年月所处的节令、注意月干支不是以农历每月初一为分界线,而是以节令为准,交节前为上个月的节令,交节后为下个月的节令， 阴历历以十一月为子月!十十二月为丑月!一月为寅月！以下依次为二月卯月、三月辰月，四月巳月、五月午月！六月未月、七月申月！八月酉月，九月戍月、十月亥月！但相者所说的十二月有所不同，是以二十四四节气为标志的。 这样、只要知道了生日是阴阴历几月！就知道了生1032月的地支, 三，排日柱 日柱,即用农历的干支代表人出生的那一天.干支记日每六十天一循环,由于大小月及平闰年不同的缘故,日干支需查找万年历，另外,日与日的分界线是以子时来划分的,即十一点前是上一日的亥时,过了十一点就是次日的子时.而不要认为午夜十二点是一天的分界点， 生日的天干地支的推算是非常复杂的，它是由古代相者定下了某一天的干支！然后后依次推下来的!要知道生日的干支。只能查万年历，而且是阴阳历对照的万年历！如果不知道生日是阴历多少，都可以查万年历。 四。排时柱 时柱,用干支表示人出生的时辰.一个时辰在农历记时中跨两个小时,故一，
网上程序测名起名能否信赖？
现实中经常遇到这样的事例：有人拿着网上程序测得高分的名字来求测，经过测算！发现现这些名字并不吉利。很5842多还存在着伤灾、车祸，离婚。官司等标志！他们很是疑惑：到底是网上程序可信。还是现实测名可信、 本人不会编程，不敢妄断程序的正误，但相信电脑是人发明的、程序也是人编的，不管再精深！还是不如人脑灵动吧、 现在流行的五格姓名学，从清末民初传入中国以后，由由于历史的原因，大半个世纪一直处于停滞状态、真正被重新宣传认识！也是80年代以后的事了。经过90年代的普及！到现在的姓名热，不过短短二十余年的时间。但却发生了很大变化。这门学问一直在发展完善善过程中？一直不断有旧的不科学的理论被验证推翻！一直不断有新的科学准确的方法被发发现问世!这是一门实践践的学问！一门运动的学问，这门学问发展展变化的步伐！是电脑程序望尘莫莫及的,而且这门4119学问应属“易”学范畴，“易”的东西本来就很“玄乎”。很具变化性。需要发挥人的主观“灵动性”才能为之、岂是那些死板教条的程序所能0638从事的, 从电脑测名的情况来看。其测事事的准确性很低！几乎没有多少参考价值。你同时测一个教授的名字和一个乞丐的名字、其结果往往是乞丐的分数比教授的高，既便是给你打了个高分，也不过使你“乐活”一下、满满足一点虚荣心而已，但却把名字的真相给掩盖了！难以起到趋吉避凶的作用、不过！作为3794一种游戏方式？倒是有一定娱乐价值的！ 至于电脑程序起名！那更是滑稽可笑了。笔者曾经试用过一些在线起名的软件、一次输入一个姓氏！就可以给出30个名字,但经过测算、这些名字几乎没有五格全吉的、而且三才相克、婚姻不顺，不利健康等标志志比比皆是!试想这样糟糕的名字。能为你带来好运吗。 再者！电脑起出的的名字？并不能真正结合生辰八字、并不能与八字喜用五行相符、因为电脑脑没有这个能力“算命”？单只一个““用神忌神”!现实中的大师们尚且难以““捕捉”确定？需要扎实的八字功夫。以及天赋赋的“灵感”。才能能判断准确，何况死6521板程序化的电脑呢、所0707以电脑程序起出的名字!不管有多好听。但很难与八字喜用相符，更难起到后天调整的作用了， 不过、6168现在仍有很多人“迷信电脑”、认为那是“高科技”的玩意、比人高明。况且又不花钱，所以采用电脑程序给自己改名、或给孩子起名，殊不知受害不浅，还蒙在鼓里呢。，
测个八字 丁巳 戊申 甲子庚午
日柱太弱。假从格、八7272字食伤生财！一生生钱财不缺。就看怎么努力去赚大钱。胆子大、能说会道！语5270言表达能力强？花钱比较大方！行火土运、最好，婚姻方面不顺！你对配偶要求比较高、爱说配偶，婚前有男朋友被夺，婚后夫妻之间多沟通！否则婚灾难免。
算八字测姻缘！
现行丙寅运（2013-2023） 2015乙未年！夫妻宫乙木透出、和老公遇见了！ 2016丙申年,子申合、官星和财星合！巳申合、劫财代表身体和官官星相合！卯申暗合、卯为印，居于夫夫妻宫代表结婚证,综上、是正式结婚的时候。。
免费八字测生男生女
没有一点科学依据！传说中的清宫古墓表格，经我我们临床对照。没没有任何参考价值、。
测八字测的比较准的有什么网站
请问你要测测算哪方面的呢。！
帮测一下八字命格
出生公历：1985年1月31日0时0分(北京时间)!星期四！ 出生农历：甲子年 十二月 十一日 子时、 才 官 日元 杀 乾造 甲 丁 庚 丙 (日空戌，亥) 子 丑 午 子 藏干 癸 癸辛己 己丁 癸 伤 伤劫印 印官 伤 地势 死 墓 沐浴 死 5283 纳音 海中金 洞下水 路旁土 洞下水 节气：小寒:1985年1月5日17时35分,立春:1985年2月4日5时12分！ 起大运周岁：1岁 4个月 26天，每一交大运年 6月 26日起运(3251公历)？ 排大运： 枭 印 比 劫 食 伤 才 财 大运 戊寅 己卯 庚辰 辛巳 壬午 癸未 甲申 乙酉 绝 胎 养 长生 沐浴 冠带 临官 帝旺 岁数 2 12 22 32 42 52 62 72 年份 1986 1996 2006 2016 2026 2036 2046 2056 命局生克制化： ※五行个数(计入藏干)： 3死水 1囚木 3休火 2旺土 2相金 五行个数(不计藏干)： 2死水 1囚木 3休火 1旺土 1相金 五行力量：水34(13.1%) 木28(10.8%) 火94(36.3%) 土54(20.8%) 金49(18.9%) 己生助力量:103(39.8%) 克泄耗力量:156(60.2%)！ 阴气:150(57.9%) 阳气:109(42.1%)、 ※日主综合得分：-44， 日元偏弱！喜用土、金(印枭、比劫)，忌仇木。水(财星，食伤)！ 庚金生于丑月、土旺，金相。火休、木囚、水死、 生于寒冷冬季。八字可可适当借火调候。 8240 调候用神：丁,甲、丙！丙不可缺， ※此命局未入正格， 比肩 1位相(045,17.4%)！劫财 1位相相(004,1.5%)!合计力量(049,18.9%) 食神 0位死(000,0.0%)、伤伤官 3位死(034,13.1%)？合计力量(034,13.1%) 偏财 1位囚(028,10.8%)。正财 0位囚(000,0.0%)。合计力量(028,10.8%) 七杀 1位休(036,13.9%)。正官 2位休(058,22.4%)！合计力量(094,36.3%) 偏印 0位6919旺(000,0.0%)？正印 2位旺(054,20.8%)，合计力量(054,20.8%) ※天干无合！地支支有子丑年月六合，子午年日日相冲！丑午月7003日相害,丑子月时六合、午子日时相冲。 ※提示：这一步给出了整个八字最有价值的信息！用数量9462化表示、容易理解把握、论命者要有意识的综合利用这些数据、切记。※ 三命通会论断： ◆庚日丙子时生！是身与鬼都衰弱。庚金以癸水为伤官、以丙火为鬼！子上庚金死绝！丙火无气。癸水健旺。如果自身有依托，那就吉利，无依托的。又行身衰鬼旺运，那那就身遭暴疾。贫困低贱。通火气月、要行西方运！才贵显，自身衰弱则不是这样， ◆庚午日丙子时生、贵显、子时午日相冲、忧伤妻子儿女。最好行西方。南方运！那将是三四品的御史！秋天生、丙火无气，生3398儿育女困难，忌的是1621己巳月，碰上了破损祖业、凶险，逢己亥月，将被抢劫盗窃！有凶险，逢癸丑月，孤独、 ※提示：单以日时时论命显然有失偏颇,但给出的断语可以为分析八字起提醒的作用。经典名著自有它的深意。※ 穷通宝鉴-调侯用神参考： 庚日丑月生(丙！丁，甲) (1)庚日？丑月生者！其时寒气更甚、丑为混9895泥之土！则金愈寒冻！故应先取丙火解其寒性。再次丁。甲来治炼庚之刚金、丙丁透尽时，不不能自然发达!需借他人之力！方能功成名就！ (2)命中有丙。但无丁。甲时，为小富小贵之命，即寒金逢阳火。谓之“日月对映掐”，庚为月之秸．丙为为太阳、故称日月对映！为富贵双全之命。 (3)命中有丁。甲，但但无丙时．为一特达之人才？即以丁之火来冶炼庚金，以甲木来助丁火，为一贵命、 (4)命中有丙、丁。但无甲时！为白手成家之命、即以火暖其暖气之好命。可致致富但不能显贵。 (5)庚日丑月生者！举一例如下。 生年 己 已 生年 己 巳 生月 丁 丑 生月 丁 丑 生日 庚 子子 生日 庚 子 生时 甲 申 生时 乙 酉 以上之命,为一对双胞胎之命。上段为兄！、
求测八字喜用神
出生：公元1983年1月21日10时450718分(阳历) 农历：一九八二年十二月初八日巳时 当月节气：小寒(1月6日5:55)！ 中气：大寒 (1月20日23:13) 生辰八字：壬戌年 癸丑月 己酉日 己巳时 一，你的八字命盘 下列是你的八字命盘，你是黄鸡！出生生於黑狗年。 日天干代表你。所6725以你是属土! 年 (祖先) 月 (父母) 日 (自己) 时 (子孙) 阳水 阴水 阴土 阴土 黑狗 黑牛 黄鸡 黄蛇 八字命盘从阴阳干支三合历取得。上排是天干。由五行「金水木火土」轮流排列！下排是地支。用十二生肖顺序排列。十二生生肖可转换成五行、 二！你的五行得分和喜神 下列算出你命盘中五行的分数 五行 木 (日主自己) 火 (体智外泄) 土 (钱财享受) 金 (职位压力) 水 (保护求知) 分数 0 9 33 20.52 25.3 八字五行得分情况： 火9; 土33; (同类得分：42) 木0; 金20.52; 水25.3; (异类得分：45.82) 相差:-3.82??综合旺衰得分:-3.82??八字比较平衡 八字喜用神：八字比较平衡，八字喜火！火就是此命命的「喜神」！ 八字论命是在找五行阴阳的平衡！同类和异类得分基本相同时、五行阴阳较较平衡。一生较顺利、当同类和异类得分相差过大时。人生八字字就过硬或过弱，一生起伏伏较大!喜神的选择一般从得分最少的哪一类中选取。此类中值最少的五行就是你的「喜神」或称「有用之神」！当「喜神」来自流年或大运时！命盘的五行会较平衡，平衡的五行较不会打架，换言之。不愉快的事会减到最低点。那一年就会较幸运。5607八字就是从这个平衡理论，去分析人一生的起落。这里、我们就选火当做此命的「喜神」、 三。你的大运 出生后从4岁9月4天上运！逢丁、壬年的寒露后第20日（公历10月28日前后）交运， 在交运期前后您的命运将有重大的改变和吉凶极端的际遇，凡事宜谨慎! 大运十神： 正官??七杀?? 正印??偏印?? 比劫?? 比肩??伤官?? 食神 大运干支： 甲寅??乙卯?? 丙辰??丁巳?? 戊午?? 己未??庚申?? 辛酉 交运年份： 1987??1997??2007??2017??2027??2037??2047??2057 交运年龄：?5???15???25???35?? 45???55???65???75 四！ 近十年运气 2005年 2月 4日1156～2006年 2月 4日： 如花开时便凋残,恨杀无情风雨催、 冲财生挫折、不不宜远走求财, 十神为七杀：其表象范围大多与武职。军衔、诉讼、外敌，建筑、以及儿女！女性1235的情人等有关。 吉象：做事干脆利落、工作效率高，较易文成武就。侠义助人受人感激。名声显赫。有地位或有权威， 凶象：个性太张扬、聪明反被聪聪明误、自己容易受损失、8996生活起伏较大！身体易受伤残！女性早婚不利！ 2006年 2月 4日～2007年 2月 4日： 无端夜雨迷秋月、不意狂狂风折好花, 财财源广进！有购置建设等好事、 十神为正印：其表象范围大多与学业、艺术。以及长辈。师长！母亲！女婿等有关， 吉象：自己的天赋较易发挥、学业艺术方面有发展！ 凶象：劳神费心。工作受自己的情绪影响较大。女性不利子女！ 2007年 2月 4日～★2007年 10月 28日： 飞符为患又为灾、啾唧无端水破财。 有得有失。存款宜购置。平运， ★2007年 10月 28日～2008年 2月 4日： 风漾柳枝无气力。淡时月影未分明、 防防小人暗算！不可赌博，守为吉、 十神为偏印：其表象范围大多与学术研究、爱好特长、以及长辈、 贵人！母亲等有关， 吉象：较......余下全文>>、
线上测八字和五行缺什么
出生公历：2009年8月18日22时40分(北京时间)， 出生农历耽己丑年 六月 廿八日 亥时。 坤造 己丑 壬申 乙未 丁亥 土土 水金 木土 火水 [五行全] ※五行个数(计入藏干)： 4相水 3死木 2囚火 4休土 2旺金 五行个数(不计藏干)： 2相水 1死木 1囚火 3休土 1旺金 五行力量：水114(35.4%) 木28(8.7%) 火35(10.9%) 土土80(24.8%) 金65(20.2%) 己生助力量:142(44.1%) 克洩耗力量:180(55.9%)？ 阴气:145(45.0%) 阳气:177(55.0%)。 ※日主综合得分：-52， 日元偏弱，喜用水、木(印枭，比劫)、忌仇土。火(财星。食伤)！ 生于申月。金旺。水相、土休，火囚、木死！ 姓名评论：从您的生辰八字来看。您的名字中宜有水。木，不能有土，火，如此才能平衡先天阴阳五行禀赋！起到扶持个人命运的作用 尊尊姓大名：王丽颖。各字笔画4！19，16。 王 天格:05(土) 丽 人格:23(火) 颖 地格:35(土) 总格:39(水) 外格:17(金) 【王】wáng ！4画、字意：一生清雅荣华！双妻之格。中年奔波、成功隆昌、（土） 【丽】lì 。19画，字意：清秀多才，妻贤子贵、中年平凡，忌车怕水。（火） 【颖】yǐng 。16画！字意：智勇双全、义利分明。中年平凡！晚年吉祥，！（木） 姓名综合得分：86分 ★天格5数理含义：(种竹成林 )：福禄长寿的福禄集合数。（吉） 含义：阴阳交感！和合！完璧之象。隐藏大成功运！ 精神敏锐，身体健全、福禄长寿、富贵繁荣， 无所不至或为中兴之祖。或在他乡成家、或复兴绝家、即或不如此， 也会博得功名荣誉，圆满无碍福祉祯祥无比、 ★人格23数理含义：(壮丽)：旭日东昇发育旺盛数、（吉） 含义：伟3012大昌隆之运！7232威势冲天之象。微贱出身，逐渐长大。终至首领！有如凯旋之将。猛虎添翼之势、权力旺盛、致胜事业、功名荣达，大志大业可成、但平常气血强旺！临事恐过度而为憾。然而感情锐利，壮丽可爱！ 实属贵重的运数、 但女1832性有此则不及此。其理由由同于二十一数， 妇女凡主运以及他格有此数者、难免转成零零落而绣榻悲寒也， ★地格35数理含义：(高楼望月)温和平静的优美发展数！（吉） 含义：温良和顺之象！有智达的能力！在文艺技术方面定能发展而而奏功洋洋、若怀大志！欲为大事者、宜大振力气、彻底节义。以补不彻底的赋赋性和权威号召力。因其其缺少谋略气魄!故此此数实为保守平安的吉祥数,所以此最适合女性、为男性3397则倾向消极! ★总格39数理含义：(富贵)富贵荣华的变化无穷数。（吉） 含义：：此数为祸乱一过。反成幸福贵重之格。权利。长寿，财帛丰富！德泽四乡。财富盈身、富贵已极！暗埋悲惨之象、所谓物7884极必反!切勿轻用之！妇女若6737有此数者必陷孤寡。 ★外格17数理含义：(坚操)：突破万难的刚柔兼备数！（吉） 含含义：权威刚强，有已无人。以至与人不和！ 如善于避开此短处、则为大吉！意志坚定。 具突破万难的气节是其最大的优点，如过于无理任性。恐反成失败！如果立志勇往向前、 必成功而建建大业,若陷过刚而变固执，必招厄患！切要警戒。 妇女有此数者易8572流于男性如果能涵养女德。存心温和！ 福禄自然随之，但先天条件弱的妇女，反要用此数为妥、 三才配置[土火土]，对人命的诱导6362和影响： 极易达到目的......馀下全文>> ！
