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