八字精批源码

‘壹’ 哪里或谁有 算命网站（包括八字排盘等） 的 PHP 源代码 ，采纳后，给予100分。

想算命 报出生的 年 月 日 时 (注明 阴历还是阳历 及 男女）

‘贰’ 八字算命详细精批一生，八字算命一生命运

提起八字算命详细精批一生，大家都知道，有人问八字算命一生命运，另外，还有人想问八字算命详细精批一生我已付费还没看完怎么办？你知道这是怎么回事？其实生辰八字算命批文,写得都是些什么?，下面就一起来看看八字算命一生命运，希望能够帮助到大家！

八字算命详细精批一生

1、八字算命详细精批一生:八字算命一生命运

食神生财格，食神为木。印星在支中不露，好事。用神是木，喜神是火。适合行东南之地。

忌神是土，仇神是金。

大运中总是喜神和忌神在一起交织，好坏参半，须仔细分析老黄历免费生辰八字算命网。

2、八字算命详细精批一生:八字算命详细精批一生我已付费还没看完怎么办？

可以继续算，算完为止

3、八字算命详细精批一生:生辰八字算命批文,写得都是些什么?

不写一生那八字是一年么或是一月或是一日或是一时么

生辰八字批文，要写四柱八字，命宫，胎元，身宫，小限。大运，流年。婚姻，财运等等信息。

4、八字算命详细精批一生:八字算命到底准吗？批八字算人一生的运气命运，到底准不准？

有人算的还满准的，当然前提是你能找到一个那样的人，其实这些东西有人说是，但是还是有根据的，有人甚至算的命能应验到的。所以，找个算的准的算，而且，就算知道了以后，也不要太在意，有可能不好，但是在不好的前提下，我们可以尽量把他往好的方面偏移一点。其实，信则灵，看你自己了，是算的好命，也可以让自己更有信心。不过不可以逸待劳。

5、八字算命详细精批一生:八字算命~越详细越好~非常感谢

身强壬水财星调侯为用，8字无官，不服管教。老公对本身来说可有可无，不适合去机关单位，注意心肺，不知道你要问什么，大致看了下，运走的不错。一路走金水木，晚年才走败运。个人命盘详解(免费版)。

生辰八字算命批文,写得都是些什么?

6、八字算命详细精批一生:生辰八字算命真的能算出一个人一生的运程吗？

说真话，比较的师傅所学知识有限，在有限的范围内，还是能断出命主的吉凶祸福的。但由于人性的原因大多命主是不想听的也不相信，关件是信福不纳祸丧气。君子算命其实是问灾的，敢讲真话的有几人。

7、八字算命详细精批一生:八字免费终身详批一生财运？

，你想让人免费帮你详细的批算一生的八字运程？我可以敢肯定的说，没有人会这样帮你的。你想想看，换成你，你愿意这样做不？非亲非故，且没有什么报酬，谁会花大量精力这样帮你算？年轻人不要随便算命。

顶多是有个会算的算命先生或者易学爱好者浏览看到，他正好有点闲暇时间，帮你批个几句就不错了

8、八字算命详细精批一生:八字算命！看看一生感情！

人定胜天，算就是不算，不算就是算！其实命是可以改的，比如就有这么一种人，算命是算不了的！那就是经常做好事帮我别人的人，因为他们的每天都在增加。可能他本来就是个穷人，却是个富翁！可能数很短，却活了很久……等等！所以自己要行动做好事，千万不要劝别人离婚分手等等缺德的事情八字详解(免费版)。

以上就是与八字算命一生命运相关内容，是关于八字算命一生命运的分享。看完八字算命详细精批一生后，希望这对大家有所帮助！

‘叁’ 最精准八字批算免费，有没有免费详细的批八字软件啊

提起最精准八字批算免费，大家都知道，有人问有没有免费详细的批八字软件啊？另外，还有人想问推荐一个比较准确的批八字软件。要版的apk，谢谢，你知道这是怎么回事？其实最精准的免费八字算命，下面就一起来看看有没有免费详细的批八字软件啊？希望能够帮助到大家！

最精准八字批算免费

1、最八字批算免费:有没有免费详细的批八字软件啊？

我寻高人两年了，一个都没有看我的谁那里有详细算命的软件啊？发一个给我，谢了不要网上免费算命的那种生辰八字算命。

高人是要收费的，高人没有时间免费看八字。免费看八字那都是低人，仅供娱乐信不信由你

预测可加李涵辰，新派命理免费预测群：二八七五七七零六八

2、最八字批算免费:推荐一个比较准确的批八字软件。要版的apk，谢谢

本人用过很多批八字软件，感觉多数软件在取八字喜用神是不准确的，甚至有的把生辰八字都排错，因为没有考虑到二十四节气交节的问题上，通常把八字的月柱干支都排错，建议八字分析要依靠人工来，况且很多软件无法做到自动判断八字格局之成败，准确率是比较有限的。不过，为了节约时间，使用八字排盘软件来帮助我们八字、大运、流年还是很有帮助的。如果只是使用八字排能的话，可以使用信达利网络排盘系统，支持电脑和手机使用。安装、使用版的apk，可能会有手机程序，一定要慎用。八字精批详批免费算命。

3、最八字批算免费:最的免费八字算命

指迷，真实姓名许世有，男，年生，祖籍福建。字解玄，号指迷，预测师，择日师，命名师，风水师。自幼热衷于易学，曾游走四海，拜访名师，对周易、相学、八字、日学、姓名学、风水学等预测学科有深层次的见解和丰富的实践经验，能够真正的运用易化为人指点迷津、排忧。是经过权威网站认证的命理学专家。

你也可以上贴吧，指迷算命吧去看看，有很多预测实例。

最的免费八字算命

所谓命，就是一个人生下来，这一生要做什么，是当农民呢，还是做官，或是商人……这就像你生下来就是宝马汽车，或者是牛车一样，是注定的。而运呢，运就是人在世界上所经历过的各个时间段，运又分大运、小运，大运五年一更换，小运一年一换、流年则是我们所经历过的每一年。那么命运合在一起就像是一辆车行驶在路上一样，你所经过的路是平坦的，就顺，崎岖不平的就曲折坎坷。

有人说自己的命运自己掌握，也有人说命运是注定的，是改变不了的，这句话只能说是各对一半，比如一只鸡，从蛋壳出生后可以通过后天的精心饲养，使它成长得更好，更大，更强壮，但始终，再怎么努力饲养也不可能养成鸭或变成牛，每个人都可以通过后天的努力和改变去实现属于自己命中注定的的成功，但不是每个人去努力都可以做将军，不是每个人去努力都可以当皇帝，命运合在一起我们就能看到很多的现实故事了，有的人命理格局高的，虽说做了官，但运气行的不好，所以官做的很不顺，处处有人给他穿小鞋，官越做越小。而有些人命理格局低，则是农民，可是运气行的好，所以生活很幸福，种地风调雨顺，打工年年有余。是中国流传了五千多年的魁宝文化，是任何人都无可置疑的，周易算命不是为了简单的了解自身的命运，而是在知道命运的基础上还要知道去做到如何趋吉避凶，破祸成福。比如某人八字金旺木衰，最宜行东方木运，事业方位上也最适合在自己出生地为准的东方城市发展，所谓财在东方人往西，走错方向失良机，如果这个人不懂周易的，又往出生地的发展，加上大运不好的那不是破财就是疾病，就算大运很好的，本来应该一年赚1千万的，可能只赚了5百万，方位差一线，富贵不相见，可见算命的境界不在于算得准，而是应该在算得准的基础上如何做到趋吉避凶，破祸成福。

以上就是与有没有免费详细的批八字软件啊？相关内容，是关于有没有免费详细的批八字软件啊？的分享。看完最精准八字批算免费后，希望这对大家有所帮助！

‘肆’ 八字免费终身详批一生精准，解读命盘（详解）

提起八字免费终身详批一准，大家都知道，有人问免费四柱八字算命，另外，还有人想问有免费详批八字算命网站吗知道的介绍下谢谢拉，你知道这是怎么回事？其实生辰八字算命免费详批，下面就一起来看看解读命盘（详解），希望能够帮助到大家！

八字免费终身详批一准

太阳：[08宫]射手02°42’真正免费八字终身详批元亨利贞。

即你属于射手座这个性格爱好等网上很多我这里省略

月亮：[06宫]处女09°23’中华免费八字终身详批。

哪怕你有一个粗枝大叶的太阳星座，如果月亮在处女座，你仔细起来倒是令人刮目相看哟！你分析与整合的能力非常优秀。内心有一个完美的无瑕世界，你对自我的要求非常高标准，你乐意改进自己，你也乐意服务他人，只是有一点儿多虑。你的母亲对家庭十分尽责，重视家中的秩序与家人的健康与卫生，也许在情感的表达上她显得比较冷淡。四柱十神算命免费详批。

水星：[07宫]天蝎13°48’算命不求人 – 免费算命。

个性特质:

爱恨分明、直觉、坦白、智慧

用两句话来形容你吧!三免费八字终身详批。

1.思考过程易受到感情因素干扰，过于聪明，因而缺乏包容力。

2.喜欢坦率直接的沟通方式，对利害关系计算的非常清楚，容易给人老奸巨猾的感觉

水星在天蝎座的人具有强烈的直觉力和高智商，因此即使是非常棘手的事，只要到你们手上总是可以迎刃而解。由于水星天蝎与生俱来的优秀特性，使你们的成功之路比他人顺畅许多，你们有许多机会和上顶尖的人士交往，也可以在年纪轻轻时就拥有一番不错的成就；但是这样顺当的路程，往往让水星天蝎的人缺少包容力和受挫力，使得你们总是采取批评、尖锐的态度对待他人。

水星位在天蝎座的人容易受感情左右，你们客观的程度和感情因素介入的程度成反比，如果你们讨厌一个人或一个环境，你们在这些事物相关的事情上，就容易带有严重的偏见色彩，极可能全部采取否定和的态度；也就是说，你们不但会爱屋及乌，也会恨屋及乌。此外，水星天蝎对于利害关系相当，你们很容易为了一个目的去算计别人，即使你们不喜欢某个人，也会因为他具有你们需要的才能而特意地拢络他。139免费八字终身详批。

水星位置在天蝎座的人喜欢坦率地说出自己的想法，常常出现语惊四座的状况，如果要求你们委婉一些，你们反而宁可什么都不说。虽然这样坦率的沟通方式可以减少不必要的误会，相处起来也比较不会有负担，但是水星天蝎的人常常忘了要帮别人留点颜面，因而你们的人际关系中常因口角纷争伤了感情。个人命盘详解(免费版)。

金星：[07宫]天蝎04°54′(逆行)最准算命网吓人。

生辰八字算命免费详批

个性特质:

具性魅力、强、敢爱敢恨、占有欲强

八字免费终身详批一准：免费四柱八字算命

用两句话来形容你吧!

1.具性感魅力，感情浓烈、爱恨分明。

2.有的倾向，对玄学及神秘学有兴趣。

金星位于天蝎座的人们感情浓烈，充满了原始的性魅力。你们敢爱敢恨，占有欲强，常给对方过大压力。强烈，有沉迷于中的可能。喜爱风格强烈的艺术作品，对神秘学有兴趣。

金星代表情感的表达、爱情关系和审美观。金星位于天蝎座的人们热情、深具魅力，不论是感情还是都相当的强烈。你们的感情中带有浓烈的性渴望，浑身充满了动物性的原始魅力；强烈、总是欲求不满，常会陷入的深渊而不可自拔。金星位于这个位置的人们感情浓烈、敢爱敢恨；你们可以为爱完全的付出，但是一旦你们察觉到爱人的背叛行为，那种强烈的报复火焰也会让人吃惊。你们对另一半占有欲强烈，醋劲颇大，有时会让人无法消受。

因为处于金星护卫的金牛座对宫，金星位于这个位置是不利的。你们对于爱情过分的投入，不但给予对方太大的压力，稍有不慎更可能会导致玉石俱焚的情况，这是金星位于天蝎座人们该注意的。你们喜爱强烈的艺术风格，对神秘学及玄学也很有天赋。

火星：[11宫]水瓶29°27′

个性特质:

具精神、不从众媚俗、具良好思考推理能力

用两句话来形容你吧!

1.不畏权势、勇于，崇尚理性。

2.特立独行不媚俗，逻辑推理能力强。免费最准的老黄历算命。

火星位于水瓶座的人坚持自己的理念、决不人云亦云，有反传统、反威权的倾向。你们是理性和智识的忠诚，具有绝佳的逻辑思考能力，是从事研究工作的人才。这类人对感情的态度亦极为成熟和理智。2021年周易免费算命。

火星代表的是能量、意志、爆发力和生命力的展现方式。火星位于水瓶座的人们勇于挑战权威；你们极具的精神，对于传统的观念和想法，总是细细的检验，并勇于；你们是那群不畏权势的先驱者。

火星位于这个位置的人们不屑于从众媚俗；你们总是特立独行，按照自己的调子走；你们就是那种“喜欢与众不同”的代表。在感情方面极为理智；是属于那种柏拉图式的爱情。跟你们相处毫无压力、而自在；但另一方面你们也不喜受束缚，渴望自己的空间，有时会给另一半不安定的感觉。火星位于水瓶座的你们崇尚智识和理性，拥有绝佳的逻辑和推理能力，若好好发挥可在科学的领域一展所长。

暂时分析这么多如果你觉得有用在M我吧~~~：P免费八字格局精批。

以上就是与解读命盘（详解）相关内容，是关于免费四柱八字算命的分享。看完八字免费终身详批一准后，希望这对大家有所帮助！

‘伍’ 付费八字算命PHP源码哪里可以购买。

额有一些，你说的要求可以符合，具体看你要哪种，也可以进行再开发，只用说要求就行，不同要求定制，不在线直接问俄就行

‘陆’ 八字四柱排盘，免费四柱八字排盘详解

提起八字四柱排盘，大家都知道，有人问免费四柱八字排盘详解，另外，还有人想问八字排盘 四柱八字 什么是生辰八字，你知道这是怎么回事？其实四柱八字排盘解释，下面就一起来看看免费四柱八字排盘详解，希望能够帮助到大家！

八字四柱排盘

1、八字四柱排盘:免费四柱八字排盘详解

四柱八字排盘算命。

四柱八字排盘解释

2、八字四柱排盘:八字排盘 四柱八字 什么是生辰八字

生辰八字，也称为四柱，简称为八字，是周易算命术语中“四柱八字”的另一种说法。四柱是指人在出生那一刻的时间（即是年、月、日、时4个时间点），分别用一个天干（即是甲、乙、丙、丁、戊、己、庚、辛、壬、癸）和一个地支（即是子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥）二个字相配组成一柱，由年柱、月柱、日柱、时柱顺序排列组合起来称为四柱。八字排盘十神查询。

由于每柱两字，四柱共八字，所以算命又称“测八字”。依照天干、地支包括的、五行、十神、生克制化，刑冲合害，干支纳音等相关原理来推测人的命运（即富贵贫贱与吉凶祸福）。

在生辰八字预测人的命运时，首先是要把人的出生时间转化为四柱八字，这个过程称为“八字排盘”。八字排盘的信息包括四柱干支、十神、节气、神煞、大运、小运、流年、胎、命宫等等。在以前排八字是需要了解天文历法，天干地支、24节气等知识，还要借助一本万年历工具书来实现，现在八字排盘这项工作基本上已经被用高科技工具（电脑和手机排盘软件）取代了。免费八字格局精批。

下面举一个例来说明一下，假设某一男命出生于公历年10月01日下午16时10分05秒，出生地区是山西省晋城市，那么这个出生时间对应的四柱八字就是：己丑癸酉甲子壬申。八字排盘的详细信息下图：八字四柱免费查财库。

3、八字四柱排盘:四柱八字排盘解释

坤造；农历年1月初8日下午3点至5点生。[大林木命]免费八字四柱查询。

四柱八字；己巳年丁丑月己亥日壬申时

。[生日属土]

五行；金1·木0·水2·火2·土3.。

你是逢1岁交大运，现在走的是21岁[庚辰]大运，流年是癸巳年，今年你的婚姻已动，现在就有心上人，祝你好运。

4、八字四柱排盘:四柱八字排盘

八字：丙寅年，戊戌月，甲午日，辛未时（空辰巳）

五行：火木土土木火金土地支合多的男人可怕。

人元甲木

坐午火——一生聪明皆因妻财

丙火食弱，生偏财戊土，开辟新事业尤佳，环境不错。八字详解(免费版)。

戊土强旺，此为不爱妻子偏爱妾。

官禄难享，婚姻不随，偏才格局，大运不顺，流年亦有得所又能怎样，此命从官不成，从财有破。更寅午戌三合诸事不省心。不过学点周易吧，也许可以助你有更多的了解与作为。

5、八字四柱排盘:四柱排盘的软件哪个好

到目前为止，还没发现有哪个四柱八字排盘软件能够较准确地分析出八字的喜用神，因为分析八字的喜用神是非常复杂的事情，首先要准确判断八字的格局，计算日元的强弱，月令的深浅，还涉及到调候用神和通关用神，还有考虑特殊格局等等。如果只是用于八字排盘的话，可以使用信达利在线四柱排盘系统，能够支持桌面电脑、平板电脑、智能（安卓、苹果）手机各种终端使用，支持真太阳时间排盘，支持夏令时排盘，支持早晚子时排盘、支持流年流月流日流时排盘，使用操作也比较方便，排盘度也比较高。另外，系统在四柱命盘结果时，同时也会把斗数命盘一起显示出来，无需重复输入出生信息。

以上就是与免费四柱八字排盘详解相关内容，是关于免费四柱八字排盘详解的分享。看完八字四柱排盘后，希望这对大家有所帮助！

‘柒’ 小飞侠考试破解版 八字排盘系统 免费asp源码下载

小飞侠考试破解版 八字排盘系统 免费asp源码下载
http://blog.sina.com.cn/s/blog_626bfbf40100fhbt.html

‘捌’ 我想要一个计算生辰八字的vb语言源码

这个是有计算方法的，只要你有计算公式我就可以计算出来的。但是前提你要有计算公式才行。

'公历转农历模块

'// 农历数据定义 //
'先以 H2B 函数还原成长度为 18 的字符串，其定义如下：
'前12个字节代表1-12月：1为大月，0为小月；压缩成十六进制(1-3位)
'第13位为闰月的情况，1为大月30天，0为小月29天；(4位)
'第14位为闰月的月份，如果不是闰月为0，否则给出月份(5位)
'最后4位为当年农历新年的公历日期，如0131代表1月31日；当作数值转十六进制(6-7位)

'农历常量(1899~2100，共202年）
Private Const ylData = "AB500D2,4BD0883," _
& "4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2," _
& "A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC," _
& "A4B00D0,B4B0580,6A500D8,6D400CD,AB5147C,2B600D5,95700CA,52F027B,49700D2,6560682," _
& "D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0," _
& "D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9," _
& "B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680," _
& "AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE," _
& "4DD057F,4AD00D7,A4D00CB,D4D047B,D2500D3,D550883,B5400DA,B6A00CF,95A1680,95B00D8," _
& "49B00CD,A97047D,A4B00D5,B270ACA,6A500DC,6D400D1,AF40681,AB600D9,93700CE,4AF057F," _
& "49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD," _
& "D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6," _
& "B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D," _
& "6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB," _
& "76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4," _
& "56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B," _
& "93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA," _
& "D2E0379,C9600D1,D550781,D4A00D9,DA400CD,5D5057E,56A00D6,A6C00CB,55D047B,52D00D3," _
& "A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A," _
& "69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882," _
& "D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1"

Private Const ylMd0 = "初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五" _
& "十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十 "

Private Const ylMn0 = "正二三四五六七八九十冬腊"
Private Const ylTianGan0 = "甲乙丙丁戊已庚辛壬癸"
Private Const ylDiZhi0 = "子丑寅卯辰巳午未申酉戌亥"
Private Const ylShu0 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"

'公历日期转农历
Function GetYLDate(ByVal strDate As String) As String

On Error GoTo aErr

If Not IsDate(strDate) Then Exit Function

Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer
setDate = CDate(strDate)
tYear = Year(setDate): tMonth = Month(setDate): tDay = Day(setDate)

'如果不是有效有日期，退出
If tYear > 2100 Or tYear < 1900 Then Exit Function

Dim daList() As String * 18, conDate As Date, thisMonths As String
Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer
Dim YLyear As String, YLShuXing As String
Dim dd0 As String, mm0 As String, gan(0 To 59) As String * 2
Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer

'加载2年内的农历数据
ReDim daList(tYear - 1 To tYear)
daList(tYear - 1) = H2B(Mid(ylData, (tYear - 1900) * 8 + 1, 7))
daList(tYear) = H2B(Mid(ylData, (tYear - 1900 + 1) * 8 + 1, 7))

AddYear = tYear

initYL:

AddMonth = CInt(Mid(daList(AddYear), 15, 2))
AddDay = CInt(Mid(daList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay) '农历新年日期

getDay = DateDiff("d", conDate, setDate) + 1 '相差天数
If getDay < 1 Then AddYear = AddYear - 1: GoTo initYL

thisMonths = Left(daList(AddYear), 14)
RunYue1 = Val("&H" & Right(thisMonths, 1)) '闰月月份
If RunYue1 > 0 Then '有闰月
thisMonths = Left(thisMonths, RunYue1) & Mid(thisMonths, 13, 1) & Mid(thisMonths, RunYue1 + 1)
End If
thisMonths = Left(thisMonths, 13)

For i = 1 To 13 '计算天数
mDays = 29 + CInt(Mid(thisMonths, i, 1))
If getDay > mDays Then
getDay = getDay - mDays
Else
If RunYue1 > 0 Then
If i = RunYue1 + 1 Then RunYue = True
If i > RunYue1 Then i = i - 1
End If

AddMonth = i
AddDay = getDay
Exit For
End If
Next

dd0 = Mid(ylMd0, (AddDay - 1) * 2 + 1, 2)
mm0 = Mid(ylMn0, AddMonth, 1) + "月"

For i = 0 To 59
gan(i) = Mid(ylTianGan0, (i Mod 10) + 1, 1) + Mid(ylDiZhi0, (i Mod 12) + 1, 1)
Next i

YLyear = gan((AddYear - 4) Mod 60)
YLShuXing = Mid(ylShu0, ((AddYear - 4) Mod 12) + 1, 1)
If RunYue Then mm0 = "闰" & mm0

GetYLDate = "农历 " & YLyear & "(" & YLShuXing & ")年" & mm0 & dd0

aErr:

End Function

'农历转公历日期
'secondMonth 为真，则天示当 tMonth 是闰月时，取第二个月
Function GetDate(ByVal tYear As Integer, tMonth As Integer, tDay As Integer, Optional secondMonth As Boolean = False) As String

On Error GoTo aErr

If tYear > 2100 Or tYear < 1899 Or tMonth > 12 Or tMonth < 1 Or tDay > 30 Or tDay < 1 Then Exit Function

Dim thisMonths As String, ylNewYear As Date, toMonth As Integer
Dim mDays As Integer, RunYue1 As Integer, i As Integer
thisMonths = H2B(Mid(ylData, (tYear - 1899) * 8 + 1, 7))

If tDay > 29 + CInt(Mid(thisMonths, tMonth, 1)) Then Exit Function

ylNewYear = DateSerial(tYear, CInt(Mid(thisMonths, 15, 2)), CInt(Mid(thisMonths, 17, 2))) '农历新年日期

thisMonths = Left(thisMonths, 14)
RunYue1 = Val("&H" & Right(thisMonths, 1)) '闰月月份

toMonth = tMonth - 1
If RunYue1 > 0 Then '有闰月
thisMonths = Left(thisMonths, RunYue1) & Mid(thisMonths, 13, 1) & Mid(thisMonths, RunYue1 + 1)
If tMonth > RunYue1 Or (secondMonth And tMonth = RunYue1) Then toMonth = tMonth
End If
thisMonths = Left(thisMonths, 13)

mDays = 0
For i = 1 To toMonth
mDays = mDays + 29 + CInt(Mid(thisMonths, i, 1))
Next
mDays = mDays + tDay

GetDate = ylNewYear + mDays - 1

aErr:

End Function

'将压缩的阴历字符还原
Private Function H2B(ByVal strHex As String) As String
Dim i As Integer, i1 As Integer, tmpV As String
Const hStr = "0123456789ABCDEF"
Const bStr = ""

tmpV = UCase(Left(strHex, 3))

'十六进制转二进制
For i = 1 To Len(tmpV)
i1 = InStr(hStr, Mid(tmpV, i, 1))
H2B = H2B & Mid(bStr, (i1 - 1) * 4 + 1, 4)
Next

H2B = H2B & Mid(strHex, 4, 2)

'十六进制转十进制
H2B = H2B & "0" & CStr(Val("&H" & Right(strHex, 2)))
End Function
Private Sub Command1_Click()
Label1.Caption = GetYLDate(Text1.Text)
End Sub

‘玖’ 八字测命详细精批一生 四柱推命

人的一生其实说长也长，说短也不短，其实随着人们年龄增长的并不只是时间的消失而已，还有自己的经验与教训。在这条路途之中，我们需要注意的这种实有很多，那么对于自己的生辰八字进行一下更深入的了解，这也是很有意义的一件事情。能够让人们对于自己的生活有了解。

什么八字是最佳的
日支就是离八字日元最近的字，对代表命主的日元影响力很大。如果日支是日元的喜用神，那就有利于命主的运势，相当于会有一个帮助你的贵人形影不离的在你身边。这个字不能受伤，受伤的意思就是被月支和时支刑、冲、克，喜用神受伤代表帮助命主的力量减小了。如果这个字能够得生得助的话，比如说左右两个地支都是生扶它的，那就说明这个贵人的本事大，帮助命主的程度也大。另外，日支在日元下面紧贴着，也代表了命主的内心、自信心，还代表家里人尤这种是自己配偶对自己的支持。日支是喜用神，往往性格比较自强，也能够得到配偶的帮助和支持。这个喜用神越旺，帮扶的力量就越来越好。所用，日支是喜用神的人，命会比较好。

‘拾’ 求计算生辰八字的vb源码

你的来信已收到，已作更正。

新邮件已发出，请查收。

PS:我调试没错，你说不正确，请举例说明。不然我怎么找错误？