应用Excel VBA 编写玄空天卦择日法 v1Word格式文档下载.docx

应用Excel VBA 编写玄空天卦择日法 v1Word格式文档下载.docx

《应用Excel VBA 编写玄空天卦择日法 v1Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《应用Excel VBA 编写玄空天卦择日法 v1Word格式文档下载.docx（6页珍藏版）》请在冰豆网上搜索。

坎七赤

离三碧

艮六白

坤一白

震八白

2.玄空大卦上卦配洛书

玄空大卦上卦依法（看先天八卦配洛数图配上洛数。

干配9兑配4离配3震配8

巽配2坎配7艮配6坤配1

3.洛数配河图

玄空大卦的上卦依法配得洛数后,再将洛数配上河图,即得玄空天卦的五行。

玄空天卦五行的配得,需要经历两步,一是先将上卦配上洛数,二是将配得的洛数再配河图。

例:

天风姤卦

1配洛数

上卦为干,配洛数为9。

2配五行

据以上河图所示:

一六共宗水,二七同道火;

三八为朋木,四九为友金。

五十归中土,大卦五行依此推。

可知洛数9,配河图为金。

三、玄空大卦配运诀

贪狼不变一运来,九运全変弼应该,

二运巨门上中変,八运辅星初爻载,

三运禄存三下変,七运破军変率胎,

四运中下文曲处,六运武曲上爻抬,

此是玄空卦运诀,合乎零正发丁财。

此诀可以称为「观爻位配运法」。

即观察对应爻位之阴阳异同,而迅速配上卦运。

一运卦对应之爻阴阳相同,九运卦对应爻阴阳全不相同。

一九运之款为父母卦,其余为子息卦。

在此列出子息卦中上元卦、下元卦速配运便捷图,点出阴阳不同的爻位所在。

下元卦（合一圖

四、六十花甲配卦

1.六十甲子配卦歌訣

甲子开蒙「坤」卦起,丙子「颐」卦「屯」戊子,庚子坐临「风雷益」,壬子雷声「震」天地。

乙丑「唑嗑」丁丑「随」,「无妄」配就已丑支,辛丑「明夷」癸丑「贲」,五牛配卦当须记。

甲寅「水火妈济」局,丙寅「家人」戊寅「丰」,庚寅「离」火上下照,壬寅「同人」又连气。

乙卯逢「临」丁卯「损」,已卯守「节」不失志,「风泽中孚」见辛卯,癸卯又合「归妹」意。

火泽睽中见甲辰,丙辰泽国「兑」生之,戊

辰合「履」庚辰「泰」,壬辰「大畜」其连理。

乙巳「水天需」卦气,丁巳「小畜」风依依,已巳「大壮」辛巳「有」,「泽天诀」来合癸巳。

甲午南天「干」卦起,丙午「大过」戊午「鼎」,庚午卦位「雷风恒」,壬午「巽」风吹微微。

「水风井」中藏乙未,丁未宫中「山风蛊」,已未「升」堂「讼」辛未,癸未又被「泽水困」。

甲申「未济」丙申「解」,戊申「风水涣」迟迟,庚申「坎一窃听器水一片,壬申原来」「地水师」。

乙酉「遁」藏丁酉「咸」,已酉行「旅」火山地,辛酉「小过」癸「癸渐」,金鸡一唱天下知。

甲戌「赛」卦丙戌「艮」,戊戌「谦」虚亦自微,庚戌是「否」当须辨,壬戌尽「萃」方为美。

乙亥泰「晋」丁亥「豫」,已亥「观」之辛亥「比」,癸亥配卦「山地剥」,五猪朝拱大欢喜。

此是甲子配卦诀,吉凶祸福藏幽微,识得玄空大成卦,任我掌中排天地。

择日之道,五花八门,流派众多,名说长短,各逞其能,然多吉凶莫辩。

唯有玄空易卦地理择日学最为神验,最具备旺盛的生命力,也是最奥秘,最具威力而源远流长的一门高级择日学科。

其大道至简,其理到明其义至深,其旨至精,其力到宏,其量之大。

真可谓独占鳌头。

常言:

「寅葬卯发」妈此译音空易卦择日法也。

经云:

「诸家选择尽纷纭,拘忌多端误杀人。

此家言吉彼云凶,对尽诸书总不同三年五载精一日,万般福泽总成空。

吉来天子七月葬,士庶俞月礼不旷。

年月何尝有废兴,日时只有论孤旺。

春秋葬日满经书,但辩刚柔内外尚。

通书克择尽荒唐,斗首元辰失主张。

奇遁演禽皆倒乱,不经真授莫猜详。

世人克择重干支,生辰化命两相持。

致使子孙冲犯众,多年不葬孝心违。

豆知死者已无命,反气入地为复命。

复命能可造化权,生者命从葬者定。

故有先人造命诀,不是干支子平说。

浑天宝照候天星,此是杨公真口诀。

不怕三杀太岁神,阴府空亡俱没杀。

年克压命又何妨,退气金神出鬼没皆能发。

一卷三元玉函经,留与人间作宝筏」。

青囊序亦云:

「晋世景纯传此术,演经立义说玄空。

」奥语有云:

「雌与雄交会合玄空,雄与雌玄空卦内推。

」又「翻天倒地对不同,其中秘密在玄空。

」此皆所言百二十家唯玄空易卦独占鳌头也。

2

6江冠亨甲寅丙寅戊寅庚寅庚寅壬寅卯干支乙卯丁卯己卯辛卯癸卯辰干支甲辰丙辰戊辰庚辰壬辰巳干支乙巳丁巳己巳辛巳癸巳午干支甲午甲午丙午戊午庚午壬午未干支乙未丁未己未辛未癸未Email:

anthonymannix@728439五行16728五行34916五行72834五行994382五行76194水天既濟风火家人雷天豐澤火革離为火天火同人卦地澤臨山澤損水澤節风澤中孚雷澤歸妹卦火澤睽兑为澤天澤履地天秦山天大畜卦水天需风天小畜雷天大壯火天大有澤天夬卦天风姤乾为天澤风大過天風鼎雷风恆巽为風卦水风井山风蠱地风升天水訟澤水困九四六二一七卦運四九八三七卦運二一六九四卦運三八二七六卦運八一三四九一卦運六七二三八

7江冠亨申干支甲申丙申戊申庚申庚申壬申五行382671五行94382五行76194五行38276卦水天既濟雷火解風水渙山水蒙坎为水地水師卦大山遯澤山咸火山旅雷山小過风山漸卦水山蹇艮为山地山謙天地否澤地萃卦天地晉雷地豫风地觀水地比山地剝卦運九四六二一七卦運四九八三七卦運二一六九四卦運三八二七六酉干支乙酉丁酉己酉辛酉癸酉戌干支甲戌丙戌戊戌庚戌壬戌辰亥干支乙亥丁亥己亥辛亥癸亥3．兩個卦配一干支的用卦法兩卦配一干支的共有四組：

甲子（坤、復甲午（乾、姤庚寅（離、革庚申（坎、蒙有的人認为，在日課組合时，棄用「復」、「姤」、「革」、「蒙」諸卦而不用，只用「乾」、「坤」「離」「坎」四卦。

、、其實並非如此，应該根據場合之需要而確定取哪一卦。

例：

擇周己巳年（一九八九年農曆四月三十甲午日巳时年月Email:

anthonymannix@己巳己巳88天地晉雷地豫二二

8江冠亨日时甲午己巳98风地觀水地比八二此課为卦運合十吉格。

若依棄「姤」用「乾」之論，则此課不合格矣。

这里根據場合需要，選用「姤」卦则合格，所以用「姤」卦。

即用「姤」合格則用「姤」卦，用「乾」合格則用「乾」卦。

五、六十四卦配二十四山1．八大方位，每一個方位分配八個款。

詳個歌訣如下：

a.丙午丁正南方丙壯有卦連半天，午乾姤卦大過天，丁包鼎恆端的是，八卦不出南方線。

b.未坤申西南方未方巽井蠱半邊，坤位升訟与困連，申是未濟兼解卦，西南八卦似八仙。

c.庚酉辛西方八卦庚渙坎卦蒙半連，酉師遯款成水田，辛旅小過八卦到，西方八卦见聖賢。

d.戌乾亥西北方戌见漸蹇艮分明，乾位謙否萃之旁，更见亥位晉豫卦，西北一方八卦清。

e.壬子癸北方壬詰比款剝半裁，子坤復卦頤亦来，癸位屯蓋無差錯，此是北方八卦台。

f.丑艮寅東北方丑震嗑款隨半峰，艮妄明夷贪居中，寅位既濟家人走，東北八卦喜相逢。

g.甲卯乙東方甲豐離火革半晝，卯臨同八某损卦，乙位節卦中孚到，東方八卦不应花。

h.辰巽巳東南方辰妹睽卦兑相連，巽方履泰大畜眠，巳需小畜至邊界，東南八款慶豐年。

Email:

anthonymannix@

9江冠亨根據六十四卦配卦表，制定以下由ExcelVBA编寫的配六十四卦的副程式。

将六十四卦整個資料都放进程序内，其原因是呼叫出此副程式后其運作的时间会比較快，其次是其呼叫次數比較频繁，所以将其装进副程式里会比較穩当。

在此程式只要知道某一個天干地支Sky_Ground，如戊子，程式便傳回程式內myArray1的干支targetSkyGround、myArray2的五行five_Force、myArray3的卦Gua及myArray4的卦運Gua_LuckSubf64（Sky_GroundAsString,ByReftargetSkyGroundAsString,ByReffive_ForceAsString,ByRefGuaAsString,ByRefGua_LuckAsStringDimmyArray1AsVariantDimmyArray2AsVariantDimmyArray3AsVariantDimmyArray4AsVariantmyArray1=Array（"

甲子"

"

丙子"

戊子"

庚子"

壬子"

乙丑"

丁丑"

己丑"

辛丑"

癸丑"

甲寅"

丙寅"

戊寅"

庚寅"

壬寅"

乙卯"

丁卯"

己卯"

辛卯"

癸卯"

甲辰"

丙辰"

戊辰"

庚辰"

壬辰"

乙巳"

丁巳"

己巳"

辛巳"

癸巳"

甲午"

丙午"

戊午"

庚午"

壬午"

乙未"

丁未"

己未"

辛未"

癸未"

甲申"

丙申"

戊申"

庚申"

壬申"

乙酉"

丁酉"

己酉"

辛酉"

癸酉"

甲戌"

丙戌"

戊戌"

庚戌"

壬戌"

乙亥"

丁亥"

己亥"

辛亥"

癸亥"

myArray2=Array（"

1"

6"

7"

2"

8"

3"

4"

9"

myArray3=Array（"

地雷復"

坤为地"

山雷頤"

水雷屯"

風雷益"

震为雷"

火雷噬噬"

澤雷隨"

天雷無妄"

地火明夷"

山火賁"

水火既濟"

風火家人"

雷火豐"

澤火革"

離为火"

天火同人"

地澤臨"

山澤損"

水澤節"

風澤中孚"

雷澤歸妹"

以澤睽"

兌为澤"

天澤履"

地天泰"

山天大畜"

水天需"

風天小畜"

雷天天壯"

火天大有"

澤天夬"

天風姤"

乾为天"

澤風大過"

火風鼎"

雷風恆"

巽为風"

水風井"

山風蠱"

地風井"

天水訟"

澤水困"

雷水解"

風水渙"

山水蒙"

坎为水"

地水師"

天山遯"

澤山咸"

水山旅"

雷山小過"

風山漸"

水山蹇"

艮为山"

地山謙"

天地否"

澤地萃"

火地晉"

雷地豫"

風地觀"

水地比"

山地剝"

myArray4=Array（"

Fori=1To63IfmyArray1（i=Sky_GroundThentargetSkyGround=myArray1（ifive_Force=myArray2（iGua=myArray3（iGua_Luck=myArray4（iEndIfNextiEndSub源代码1:

f64（程序-六十四卦配卦待續Email: