紫微落宮公式：

過年期間心血來潮看了一點網路上紫微斗數的資料
也剛好想學學 VS2005,
所以就用VB寫了一個排盤兼輔助學習的程式，
就在不眠不休中，發現了紫微落宮的公式，
當然，VB功力也增加不少。
由於我只是自學的初入門者，
不知有沒有他人發表過，
野人獻曝一下，或許對大家可以幫上一點忙。
沒有版權，如果對你有用，歡迎使用。
當然，如果您有甚麼好資料可以分享
也歡迎寄給我。 s69020.wang在msa.hinet.net
(請把"在"改成"@")


火六局：array六(1..6)={10,7,0,5,2,3} ★ 10=酉, 0=12=亥, ..., 3=寅
土五局： array五(1..5)={7,0,5,2,3}
金四局： array四(1..4)={0,5,2,3}
木三局： array三(1..3)={5,2,3}
水二局： array二(1..2)={2,3}
只要背 六{10,7,0,5,2,3}, 其餘依次遞減一個

紫微所在宮位 = { array局( (生日 mod 局數) ) + [(生日-1) / 局數] } mod 12

請看： 網頁

程式初步可以輔助學習，但距離我的目標還很遠。
命盤左邊的空白是預留了許多的控制項目。
以下只是圖片
網頁

由於剛開始學習VB.net,所以還在奮鬥中。
以今日電腦的能力，只要有判斷公式，
(不要以為紫微公式太多，對現代的資料庫而言,它只是小小小case)
電腦絕對是很好的輔助工具，能力絕對遠遠遠遠遠遠超過想像。
我預估，可以勝過許多江湖術士。
當然，電腦只是很細心幫你找出所有關鍵點，
我相信很多地方還是需要人腦做整體判斷。

等自學紫微初階告個段落後再找個老師深入學習。
屆時再擴充程式能力。

不要問我程式的問題，由於剛學VS2005，
還不會封裝，還在摸索中。
等我搞懂了，應該會部分公布出來。

有沒有中壢桃園一帶的好老師可以介紹？

網上看到不少好老師，可是都在台北或新竹台中，都有點遠。

祝大家新年快樂，平平安安，笑口常開。

生時是 x點多,換算成地支時辰: (23-1子時除外)
[(x-1)/2]+2 ([]為取整數)

ex1. 晚上6點多=18:** => [(18-1)/2]+2=8+2=10 (酉)
ex2. 早上8點多 =8:** => [(8-1)/2]+2=3+2=5 (辰)
ex3. 早上9點多=9:** => [(9-1)/2]+2=4+2=6 (巳)