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

1、应用Excel VBA 编写玄空天卦择日法 v1三元玄空大卦择吉,是一门秘传的择日学。其采用六十四卦配合九星五行先天之气论生克,结合卦运论旺衰,故其吉凶应验令人感到神奇和准确。其运用操作迅速快捷,其以坐卦和日辰为主、为我结合年、月、日、时的生克情况,辨别盛衰吉凶。玄空大卦择日最大特点,只论五行生克,不论诸家神煞,不象其他日课神煞满天飞,凶星遍地游。什么的锥磨煞三娘煞红艳煞、丧门、吊客等等。六十四卦仍八卦相荡而成,其包罗宇宙万物万事,生克变化尽藏其中,故我得生旺者谓这昌盛,我耗汇者谓之衰死。因此,所有神煞尽化藏其中,无需再立神煞之名。一、河图及洛书相傅在伏羲之时,有龙马在黄河出现,此马背上有图,

2、其图如下所示。又相傅在夏禹治水之时期,有只神龟自洛水出现,在它的背上有一图。这幅图上,在不同的方位,有不同的包点。靠头部有九点紫色,尾部有一点白色;右前是有二点黑色,左前是有四点绿色;右后是有六点白色,左后是有八点白色;右腹有七点赤色,左腹上有三点碧色背中央是五点黄色,肚腹为十点黄色。附图一:相传龙马负图于黄河 附图二:相传神龟负书于洛河 二、五行的由来1.先天卦配洛数图干九紫巽二黑兑四绿坎七赤离三碧艮六白坤一白震八白2.玄空大卦上卦配洛书玄空大卦上卦依法(看先天八卦配洛数图配上洛数。干配9兑配4离配3震配8巽配2坎配7艮配6坤配13.洛数配河图玄空大卦的上卦依法配得洛数后,再将洛数配上河图,

3、即得玄空天卦的五行。玄空天卦五行的配得,需要经历两步,一是先将上卦配上洛数,二是将配得的洛数再配河图。例:天风姤卦1配洛数上卦为干,配洛数为9。2配五行据以上河图所示:一六共宗水,二七同道火;三八为朋木,四九为友金。五十归中土,大卦五行依此推。可知洛数9,配河图为金。三、玄空大卦配运诀贪狼不变一运来,九运全変弼应该,二运巨门上中変,八运辅星初爻载,三运禄存三下変,七运破军変率胎,四运中下文曲处,六运武曲上爻抬,此是玄空卦运诀,合乎零正发丁财。此诀可以称为观爻位配运法。即观察对应爻位之阴阳异同,而迅速配上卦运。一运卦对应之爻阴阳相同,九运卦对应爻阴阳全不相同。一九运之款为父母卦,其余为子息卦。在

4、此列出子息卦中上元卦、下元卦速配运便捷图,点出阴阳不同的爻位所在。 下元卦(合一圖 四、六十花甲配卦1.六十甲子配卦歌訣甲子开蒙坤卦起,丙子颐卦屯戊子,庚子坐临风雷益,壬子雷声震天地。乙丑唑嗑丁丑随,无妄配就已丑支,辛丑明夷癸丑贲,五牛配卦当须记。甲寅水火妈济局,丙寅家人戊寅丰,庚寅离火上下照,壬寅同人又连气。乙卯逢临丁卯损,已卯守节不失志,风泽中孚见辛卯,癸卯又合归妹意。火泽睽中见甲辰,丙辰泽国兑生之,戊辰合履庚辰泰,壬辰大畜其连理。乙巳水天需卦气,丁巳小畜风依依,已巳大壮辛巳有,泽天诀来合癸巳。甲午南天干卦起,丙午大过戊午鼎,庚午卦位雷风恒,壬午巽风吹微微。水风井中藏乙未,丁未宫中山风蛊,

5、已未升堂讼辛未,癸未又被泽水困。甲申未济丙申解,戊申风水涣迟迟,庚申坎一窃听器水一片,壬申原来地水师。乙酉遁藏丁酉咸,已酉行旅火山地,辛酉小过癸癸渐,金鸡一唱天下知。甲戌赛卦丙戌艮,戊戌谦虚亦自微,庚戌是否当须辨,壬戌尽萃方为美。乙亥泰晋丁亥豫,已亥观之辛亥比,癸亥配卦山地剥,五猪朝拱大欢喜。此是甲子配卦诀,吉凶祸福藏幽微,识得玄空大成卦,任我掌中排天地。择日之道,五花八门,流派众多,名说长短,各逞其能,然多吉凶莫辩。唯有玄空易卦地理择日学最为神验,最具备旺盛的生命力,也是最奥秘,最具威力而源远流长的一门高级择日学科。其大道至简,其理到明其义至深,其旨至精,其力到宏,其量之大。真可谓独占鳌头。

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

7、云:晋世景纯传此术,演经立义说玄空。奥语有云:雌与雄交会合玄空,雄与雌玄空卦内推。又翻天倒地对不同,其中秘密在玄空。此皆所言百二十家唯玄空易卦独占鳌头也。2 6 江冠亨 甲寅 丙寅 戊寅 庚寅 庚寅 壬寅 卯 干支 乙卯 丁卯 己卯 辛卯 癸卯 辰 干支 甲辰 丙辰 戊辰 庚辰 壬辰 巳 干支 乙巳 丁巳 己巳 辛巳 癸巳 午 干支 甲午 甲午 丙午 戊午 庚午 壬午 未 干支 乙未 丁未 己未 辛未 癸未 Email: anthonymannix 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

8、1 9 4 水天既濟 风火家人 雷天豐 澤火革 離为火 天火同人 卦 地澤臨 山澤損 水澤節 风澤中孚 雷澤歸妹 卦 火澤睽 兑为澤 天澤履 地天秦 山天大畜 卦 水天需 风天小畜 雷天大壯 火天大有 澤天夬 卦 天风姤 乾为天 澤风大過 天風鼎 雷风恆 巽为風 卦 水风井 山风蠱 地风升 天水訟 澤水困 九 四 六 二 一 七 卦運 四 九 八 三 七 卦運 二 一 六 九 四 卦運 三 八 二 七 六 卦運 八 一 三 四 九 一 卦運 六 七 二 三 八 7 江冠亨 申 干支 甲申 丙申 戊申 庚申 庚申 壬申 五行 3 8 2 6 7 1 五行 9 4 3 8 2 五行 7 6 1 9

9、 4 五行 3 8 2 7 6 卦 水天既濟 雷火解 風水渙 山水蒙 坎为水 地水師 卦 大山遯 澤山咸 火山旅 雷山小過 风山漸 卦 水山蹇 艮为山 地山謙 天地否 澤地萃 卦 天地晉 雷地豫 风地觀 水地比 山地剝 卦運 九 四 六 二 一 七 卦運 四 九 八 三 七 卦運 二 一 六 九 四 卦運 三 八 二 七 六 酉 干支 乙酉 丁酉 己酉 辛酉 癸酉 戌 干支 甲戌 丙戌 戊戌 庚戌 壬戌辰 亥 干支 乙亥 丁亥 己亥 辛亥 癸亥 3 兩個卦配一干支的用卦法 兩卦配一干支的共有四組： 甲子 (坤、復 甲午 (乾、姤 庚寅 (離、革 庚申 (坎、蒙 有的人認为， 在日課組合时， 棄

10、用 復 、 姤 、 革 、 蒙 諸卦而不用， 只用 乾 、 坤離坎四卦。 、 、 其實並非如此，应該根據場合之需要而確定取哪一卦。 例：擇周己巳年(一九八九年農曆四月三十甲午日巳时 年 月 Email: anthonymannix 己巳 己巳 8 8 天地晉 雷地豫 二 二 8 江冠亨 日 时 甲午 己巳 9 8 风地觀 水地比 八 二 此課为卦運合十吉格。若依棄姤用乾之論，则此課不合格矣。这里根據場 合需要，選用姤卦则合格，所以用姤卦。即用姤合格則用姤卦， 用乾合格則用乾卦。 五、六十四卦配二十四山 1 八大方位，每一個方位分配八個款。詳個歌訣如下： a. 丙午丁正南方 丙壯有卦連半天，午乾

11、姤卦大過天， 丁包鼎恆端的是，八卦不出南方線。 b. 未坤申西南方 未方巽井蠱半邊，坤位升訟与困連， 申是未濟兼解卦，西南八卦似八仙。 c. 庚酉辛西方八卦 庚渙坎卦蒙半連，酉師遯款成水田， 辛旅小過八卦到，西方八卦见聖賢。 d. 戌乾亥西北方 戌见漸蹇艮分明，乾位謙否萃之旁， 更见亥位晉豫卦，西北一方八卦清。 e. 壬子癸北方 壬詰比款剝半裁，子坤復卦頤亦来， 癸位屯蓋無差錯，此是北方八卦台。 f. 丑艮寅東北方 丑震嗑款隨半峰，艮妄明夷贪居中， 寅位既濟家人走，東北八卦喜相逢。 g. 甲卯乙東方 甲豐離火革半晝，卯臨同八某损卦， 乙位節卦中孚到，東方八卦不应花。 h. 辰巽巳東南方 辰妹睽

12、卦兑相連，巽方履泰大畜眠， 巳需小畜至邊界，東南八款慶豐年。 Email: anthonymannix 9 江冠亨 根據六十四卦配卦表，制定以下由 Excel VBA 编寫的配六十四卦的副程式。将六十四卦整 個資料都放进程序内， 其原因是呼叫出此副程式后其運作的时间会比較快， 其次是其呼叫次 數比較频繁，所以将其装进副程式里会比較穩当。在此程式只要知道某一個天干地支 Sky_Ground，如戊子，程式便傳回 程式內 myArray1 的干支 targetSkyGround 、 myArray2 的五行 five_Force、myArray3 的卦 Gua 及 myArray4 的卦運 Gua_

13、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(甲子, 甲子, 丙子, 戊子, 庚子, 壬子, 乙丑, 丁丑, 己丑, 辛丑, 癸 丑,

14、甲寅, 丙寅 , 戊寅, 庚寅, 庚寅, 壬寅, 乙卯, 丁卯, 己卯, 辛卯, 癸卯, 甲辰, 丙 辰, 戊辰, 庚辰, 壬辰, 乙巳, 丁巳, 己巳, 辛巳, 癸巳, 甲午, 甲午, 丙午, 戊午, 庚午 , 壬午, 乙未, 丁未, 己未, 辛未, 癸未, 甲申, 丙申, 戊申, 庚申, 庚申, 壬申, 乙酉, 丁酉, 己酉, 辛酉, 癸酉, 甲戌, 丙戌, 戊戌, 庚戌, 壬戌, 乙亥, 丁亥, 己亥, 辛亥, 癸亥 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,

15、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(地雷復, 坤为地, 山雷頤, 水雷屯, 風雷益, 震为雷, 火雷噬噬, 澤雷隨 , 天雷無妄, 地火明夷, 山火賁, 水火既濟, 風火家人, 雷火豐, 澤火革, 離为火, 天火同人 , 地澤臨, 山澤損, 水澤節, 風澤中孚, 雷澤歸妹, 以澤睽, 兌为澤, 天澤履, 地天泰, 山 天大畜, 水天需, 風天小畜, 雷天天

16、壯, 火天大有, 澤天夬, 天風姤, 乾为天, 澤風大過, 火 風鼎, 雷風恆, 巽为風, 水風井, 山風蠱, 地風井, 天水訟, 澤水困, 水火既濟, 雷水解, 風水渙, 山水蒙, 坎为水, 地水師, 天山遯, 澤山咸, 水山旅, 雷山小過, 風山漸, 水山蹇, 艮为山, 地山謙, 天地否, 澤地萃, 火地晉, 雷地豫, 風地觀, 水地比, 山地剝 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(程序 -六十四卦配卦 待續 Email: anthonymannix