八字精批源碼

『壹』 哪裡或誰有 算命網站（包括八字排盤等） 的 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:我調試沒錯，你說不正確，請舉例說明。不然我怎麼找錯誤？