搜档网
当前位置:搜档网 › 应用Excel VBA 编写玄空天卦择日法 v1

应用Excel VBA 编写玄空天卦择日法 v1

三元玄空大卦择吉,是一门秘传的择日学。其采用六十四卦配合九星五行先天之气论生克,结合卦运论旺衰,故其吉凶应验令人感到神奇和准确。其运用操作迅速快捷,其以坐卦和日辰为主、为我结合年、月、日、时的生克情况,辨别盛衰吉凶。

玄空大卦择日最大特点,只论五行生克,不论诸家神煞,不象其他日课神煞满天飞,凶星遍地游。什么的锥磨煞三娘煞红艳煞、丧门、吊客等等。

六十四卦仍八卦相荡而成,其包罗宇宙万物万事,生克变化尽藏其中,故[我]得生旺者谓这昌盛,[我]耗汇者谓之衰死。因此,所有神煞尽化藏其中,无需再立神煞之名。

一、河图及洛书

相傅在伏羲之时,有龙马在黄河出现,此马背上有图,其图如下所示。

又相傅在夏禹治水之时期,有只神龟自洛水出现,在它的背上有一图。这幅图上,在不同的方位,有不同的包点。靠头部有九点紫色,尾部有一点白色;右前是有二点黑色,左前是有四点绿色;右后是有六点白色,左后是有八点白色;右腹有七点赤色,左腹上有三点碧色背中央是五点黄色,肚腹为十点黄色。

附图一:相传龙马负图于黄河

附图二:相传神龟负书于洛河

二、五行的由来1.先天卦配洛数图干九紫

巽二黑

兑四绿

坎七赤

离三碧

艮六白

坤一白

震八白

2.玄空大卦上卦配洛书

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

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

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

3.洛数配河图

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

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

例:天风姤卦

1配洛数

上卦为干,配洛数为9。

2配五行

据以上河图所示:

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

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

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

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

三、玄空大卦配运诀

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

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

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

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

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

此诀可以称为「观爻位配运法」。即观察对应爻位之阴阳异同,而迅速配上卦运。

一运卦对应之爻阴阳相同,九运卦对应爻阴阳全不相同。一九运之款为父母卦,其余为子息卦。

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

下元卦(合一圖)

四、六十花甲配卦

1.六十甲子配卦歌訣

甲子开蒙「坤」卦起,丙子「颐」卦「屯」戊子,庚子坐临「风雷益」,壬子雷声「震」天地。乙丑「唑嗑」丁丑「随」,「无妄」配就已丑支,辛丑「明夷」癸丑「贲」,五牛配卦当须记。甲寅「水火妈济」局,丙寅「家人」戊寅「丰」,庚寅「离」火上下照,壬寅「同人」又连气。乙卯逢「临」丁卯「损」,已卯守「节」不失志,「风泽中孚」见辛卯,癸卯又合「归妹」意。火泽睽中见甲辰,丙辰泽国「兑」生之,戊

辰合「履」庚辰「泰」,壬辰「大畜」其连理。乙巳「水天需」卦气,丁巳「小畜」风依依,已巳「大壮」辛巳「有」,「泽天诀」来合癸巳。甲午南天「干」卦起,丙午「大过」戊午「鼎」,庚午卦位「雷风恒」,壬午「巽」风吹微微。「水风井」中藏乙未,丁未宫中「山风蛊」,已未「升」堂「讼」辛未,癸未又被「泽水困」。甲申「未济」丙申「解」,戊申「风水涣」迟迟,庚申「坎一窃听器水一片,壬申原来」「地水师」。乙酉「遁」藏丁酉「咸」,已酉行「旅」火山地,辛酉「小过」癸「癸渐」,金鸡一唱天下知。甲戌「赛」卦丙戌「艮」,戊戌「谦」虚亦自微,庚戌是「否」当须辨,壬戌尽「萃」方为美。乙亥泰「晋」丁亥「豫」,已亥「观」之辛亥「比」,癸亥配卦「山地剥」,五猪朝拱大欢喜。此是甲子配卦诀,吉凶祸福藏幽微,识得玄空大成卦,任我掌中排天地。

择日之道,五花八门,流派众多,名说长短,各逞其能,然多吉凶莫辩。唯有玄空易卦地理择日学最为神验,最具备旺盛的生命力,也是最奥秘,最具威力而源远流长的一门高级择日学科。其大道至简,其理到明其义至深,其旨至精,其力到宏,其量之大。真可谓独占鳌头。常言:「寅葬卯发」妈此译音空易卦择日法也。

经云:「诸家选择尽纷纭,拘忌多端误杀人。此家言吉彼云凶,对尽诸书总不同三年五载精一日,万般福泽总成空。吉来天子七月葬,士庶俞月礼不旷。年月何尝有废兴,日时只有论孤旺。春秋葬日满经书,但辩刚柔内外尚。通书克择尽荒唐,斗首元辰失主张。奇遁演禽皆倒乱,不经真授莫猜详。世人克择重干支,生辰化命两相持。致使子孙冲犯众,多年不葬孝心违。豆知死者已无命,反气入地为复命。复命能可造化权,生者命从葬者定。故有先人造命诀,不是干支子平说。浑天宝照候天星,此是杨公真口诀。不怕三杀太岁神,阴府空亡俱没杀。年克压命又何妨,退气金神出鬼没皆能发。一卷三元玉函经,留与人间作宝筏」。

青囊序亦云:「晋世景纯传此术,演经立义说玄空。」奥语有云:「雌与雄交会合玄空,雄与雌玄空卦内推。」又「翻天倒地对不同,其中秘密在玄空。」此皆所言百二十家唯玄空易卦独占鳌头也。

2

3.兩個卦配一干支的用卦法

兩卦配一干支的共有四組:

甲子(坤、復)

甲午(乾、姤)

庚寅(離、革)

庚申(坎、蒙)

有的人認为,在日課組合时,棄用「復」、「姤」、「革」、「蒙」諸卦而不用,只用「乾」、「坤」、「離」、「坎」四卦。

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

合需要,選用「姤」卦则合格,所以用「姤」卦。即用「姤」合格則用「姤」卦,用「乾」合格則用「乾」卦。

五、六十四卦配二十四山

1.八大方位,每一個方位分配八個款。詳個歌訣如下:

a.丙午丁正南方

丙壯有卦連半天,午乾姤卦大過天,

丁包鼎恆端的是,八卦不出南方線。

b.未坤申西南方

未方巽井蠱半邊,坤位升訟与困連,

申是未濟兼解卦,西南八卦似八仙。

c.庚酉辛西方八卦

庚渙坎卦蒙半連,酉師遯款成水田,

辛旅小過八卦到,西方八卦见聖賢。

d.戌乾亥西北方

戌见漸蹇艮分明,乾位謙否萃之旁,

更见亥位晉豫卦,西北一方八卦清。

e.壬子癸北方

壬詰比款剝半裁,子坤復卦頤亦来,

癸位屯蓋無差錯,此是北方八卦台。

f.丑艮寅東北方

丑震嗑款隨半峰,艮妄明夷贪居中,

寅位既濟家人走,東北八卦喜相逢。

g.甲卯乙東方

甲豐離火革半晝,卯臨同八某损卦,

乙位節卦中孚到,東方八卦不应花。

h.辰巽巳東南方

辰妹睽卦兑相連,巽方履泰大畜眠,

巳需小畜至邊界,東南八款慶豐年。

根據六十四卦配卦表,制定以下由Excel VBA编寫的配六十四卦的副程式。将六十四卦整個資料都放进程序内,其原因是呼叫出此副程式后其運作的时间会比較快,其次是其呼叫次數比較频繁,所以将其装进副程式里会比較穩当。在此程式只要知道某一個天干地支Sky_Ground,如戊子,程式便傳回程式內myArray1的干支targetSkyGround、myArray2的五行five_Force、myArray3的卦Gua及myArray4的卦運Gua_Luck Sub f64(Sky_Ground As String, ByRef targetSkyGround As String, ByRef five_Force As String, ByRef Gua As String, ByRef Gua_Luck As String)

Dim myArray1 As Variant

Dim myArray2 As Variant

Dim myArray3 As Variant

Dim myArray4 As Variant

myArray1 = Array("甲子", "甲子", "丙子", "戊子", "庚子", "壬子", "乙丑", "丁丑", "己丑", "辛丑", "癸丑", "甲寅", "丙寅", "戊寅", "庚寅", "庚寅", "壬寅", "乙卯", "丁卯", "己卯", "辛卯", "癸卯", "甲辰", "丙辰", "戊辰", "庚辰", "壬辰", "乙巳", "丁巳", "己巳", "辛巳", "癸巳", "甲午", "甲午", "丙午", "戊午", "庚午", "壬午", "乙未", "丁未", "己未", "辛未", "癸未", "甲申", "丙申", "戊申", "庚申", "庚申", "壬申", "乙酉", "丁酉", "己酉", "辛酉", "癸酉", "甲戌", "丙戌", "戊戌", "庚戌", "壬戌", "乙亥", "丁亥", "己亥", "辛亥", "

癸亥")

myArray2 = Array("1", "1", "6", "7", "2", "8", "3", "4", "9", "1", "6", "7", "2", "8", "4", "3", "9", "1", "6", "7", "2", "8", "3", "4", "9", "1", "6", "7", "2", "8", "3", "4", "9", "9", "4", "3", "8", "2", "7", "6", "1", "9", "4", "3", "8", "2", "6", "7", "1", "9", "4", "3", "8", "2", "7", "6", "1", "9", "4", "3", "8", "2", "7", "6") myArray3 = Array("地雷復", "坤为地", "山雷頤", "水雷屯", "風雷益", "震为雷", "火雷噬噬", "澤雷隨", "天雷無妄", "地火明夷", "山火賁", "水火既濟", "風火家人", "雷火豐", "澤火革", "離为火", "天火同人", "地澤臨", "山澤損", "水澤節", "風澤中孚", "雷澤歸妹", "以澤睽", "兌为澤", "天澤履", "地天泰", "山

天大畜", "水天需", "風天小畜", "雷天天壯", "火天大有", "澤天夬", "天風姤", "乾为天", "澤風大過", "火

風鼎", "雷風恆", "巽为風", "水風井", "山風蠱", "地風井", "天水訟", "澤水困", "水火既濟", "雷水解", "

風水渙", "山水蒙", "坎为水", "地水師", "天山遯", "澤山咸", "水山旅", "雷山小過", "風山漸", "水山蹇", "艮为山", "地山謙", "天地否", "澤地萃", "火地晉", "雷地豫", "風地觀", "水地比", "山地剝") myArray4 = Array("8", "1", "3", "4", "9", "1", "6", "7", "2", "3", "8", "9", "4", "6", "2", "1", "7", "4", "9", "8", "3", "7", "2", "1", "6", "9", "4", "3", "8", "2", "7", "6", "8", "1", "3", "4", "9", "1", "6", "7", "2", "3", "8", "9", "4", "6", "2", "1", "7", "4", "9", "8", "3", "7", "2", "1", "6", "9", "4", "3", "8", "2", "7", "6") For i = 1 To 63

If myArray1(i) = Sky_Ground Then

targetSkyGround = myArray1(i)

five_Force = myArray2(i)

Gua = myArray3(i)

Gua_Luck = myArray4(i)

End If

Next i

End Sub

源代码1: f64()程序-六十四卦配卦

待續

相关主题