經過多時的尋覓,目前在VB環境有作這樣子事情的需求實在不高

許多的做法都很複雜,在網路上使用C,Delphi和Java或者 VBscript等開發環境

要作西曆轉農曆的程式,大都可以找到...



一般網路上可找到的VB範例都很麻煩,因此我被逼的沒有辦法,只好自己求解了

,花了我兩個星期的休閒時間才搞定,特別在此公佈寫好的VB程式碼給大家享用

,如果有測試有問題請告知我



這樣的做法是希望針對一些有心使用VB來開發占卜算命軟體的人有些幫助,

讓大家能夠不要浪費時間在元件上,而能夠真的寫一些好的程式給大家使用



這支程式使用查表法作單向轉換,可求得年柱與日柱,寫的不好請包涵

有沒有 VC++版本呀 ?

你的程式可轉換的時間是從公元幾年到幾年呢 ?

我也寫了C++ 的轉換函式和未來十年的公元和農曆年月日的天干地支

轉換表，測試過是正確的。我已著手寫個起卦程式，有了這個表可

以讓這個程式使用十年，十年後就不行，除非我把轉換表進一步延伸。

>有沒有 VC++版本呀 ?

我沒有 VC++ 的版本,網路上很容易就可以找得到 C 的範例,

改成 VC++ 應該不會很難



>你的程式可轉換的時間是從公元幾年到幾年呢 ?



您下載附件檔不就明白了? 1936-2031年



>我也寫了C++ 的轉換函式和未來十年的公元和農曆年月日的天干地支

>轉換表，測試過是正確的。我已著手寫個起卦程式，有了這個表可

>以讓這個程式使用十年，十年後就不行，除非我把轉換表進一步延伸。



起卦的程式不需要農曆年月日的干支,排盤和排卦的程式才需要用到這樣的

東西.



希望有機會能看見你的大作發表,也希望好有的東西能夠拿出來無私的分享

給網友

●《緣起》

　　adamyeh嘗言初學當徒手成卦，唯日期之干支難算，曾在某一大陸網站看到口訣及計算例(內容見回覆)，花了一個禮拜仍不能解，因為計算例的有些但書無法掌握。遂自行拿本萬年曆，細心推導數學關係，並整理成公式貼到網路上來，後來網友另推薦林宜學先生以西元年份為主的的換算公式：

( (Y-1)*5+(Y-1)%4+15+Day )%60，

其中%表示求除法之商數，Day表該年元旦到該日期的總日數，茲說明如下



●《林宜學公式》以1975年10月9日為例

(1) 檢查1975年是否為閏年：

　　1975/4=493餘3

(2) 計算該年元旦到該日期的總日數：

　　31+28+31+30+31+30+31+31+30+9=282

(3) 計算公式：

　　( (Y-1)*5+(Y-1)%4+15+Day )%60

　　=( (75-1)*5+(75-1)%4+15+282)%60

　　=(74*5+74%4+15+282)%60

　　=(370+18+15+282)%60=685%60=25-->戊子日



●《adamyeh公式》(內容見回覆)

以1975年10月9日為例，1975年為民國64年，

例：民國64年10月9日，

(1) 查表：

　　Ｍ=10(月份)→ C=31

(2) 計算公式：

　　(64*5 + (64+2)#4 + (10-1)#2 + 9+5+31 )%60

　　=(320+16+4+9+5+31)%60 =385%60 =25(餘數)



●《自評》

　　adamyeh的公式所整理的查表雖然麻煩，但是有規律、很容易記，柏賢已用之多年，而且也適合自己用試算表來計算，或寫成電腦程式也可以。但林宜學先生的公式形式外表比較簡單，而且檢查閏年及求日期數也只用到簡單數學加法，故在此推薦！

回應:更正Adamyeh打字的錯誤



Adamyeh兄:

當初我還沒自立自強寫程式時你有好康的都沒有先報一下



其中#表示求除法之商數，%代表求餘數 <---更正與解說



網友另推薦林宜學先生以西元年份為主的的換算公式：



( (Y-1)*5+(Y-1)%4+15+Day )%60，



●《林宜學公式》以1975年10月9日為例

(1) 檢查1975年是否為閏年：

　　1975/4=493餘3

(2) 計算該年元旦到該日期的總日數：

　　31+28+31+30+31+30+31+31+30+9=282

(3) 計算公式：

　　( (Y-1)*5+(Y-1)%4+15+Day )%60

　　=( (75-1)*5+(75-1)%4+15+282)%60

　　=(74*5+74%4+15+282)%60

　　=(370+18+15+282)%60=685%60=25-->戊子日



●《adamyeh公式》

以1975年10月9日為例，1975年為民國64年，

例：民國64年10月9日，

(1) 查表：

　　Ｍ=10(月份)→ C=31

(2) 計算公式：

　　(64*5 + (64+2)#4 + (10-1)#2 + 9+5+31 )%60

　　=(320+16+4+9+5+31)%60 =385%60 =25(餘數)

你需要卜卦的程式嗎?



以下的程式我自己寫的, 你參考看看...

陽曆91/01/04 18:39 占      ┌──────────────┐

陰曆90/11/21               │   正     命     偏     正  │  羊 驛 桃 貴

                           │   官     主     印     印  │  刃 馬 花 人

月建:                      │                            │

  旺 相 休 囚 死  破:午    │   己     壬     庚     辛  │  子 寅 酉 卯

  水 木 金 土 火           │   酉     申     子     巳  │           巳

                           │                            │

日辰:                      │   金   戊庚壬   水   戊丙庚│

  生 旺 墓 絕 胎  空:戌亥  │   正   七偏比   劫   七偏偏│    京房納甲

  巳 酉 丑 寅 卯  沖:寅    │   印   殺印肩   財   殺財印│

                           └──────────────┘



       〔六獸〕 〔伏神〕  〔本卦〕 風火家人      〔變卦〕 火山旅

                           巽 3 宮                離 2 宮         六合卦



         白虎              ──  兄弟 辛卯        己巳 子孫 ──   (兄弟)

         螣蛇            應──O 子孫 辛巳 ------>己未 妻財 －－   (子孫)

         勾陳              －－X 妻財 辛未 ------>己酉 官鬼 ──應 (妻財)

         朱雀 官鬼 酉      ──  父母 己亥(空)    丙申 官鬼 ──   (妻財)

         青龍            世－－  妻財 己丑        丙午 子孫 －－   (兄弟)

         玄武              ──O 兄弟 己卯 ------>丙辰 妻財 －－世 (子孫)

-------------------------------------------------------------



程式自動抓電腦內部時鐘的時間, 不必自行輸入....

太帥了！



快點貢獻出來吧！

william兄，您好．在下冒昧請教





陽曆91/01/04 18:39 占      ┌──────────────┐

陰曆90/11/21               │   正     命     偏     正  │  羊 驛 桃 貴

                           │   官     主     印     印  │  刃 馬 花 人

月建:                      │                            │

  旺 相 休 囚 死  破:午    │   己     壬     庚     辛  │  子 寅 酉 卯

  水 木 金 土 火           │   酉     申     子     巳  │           巳

                           │                            │

日辰:                      │   金   戊庚壬   水   戊丙庚│

  生 旺 墓 絕 胎  空:戌亥  │   正   七偏比   劫   七偏偏│    京房納甲

  巳 酉 丑 寅 卯  沖:寅    │   印   殺印肩   財   殺財印│

                           └──────────────┘

日辰是否以申日 生　旺　墓　絕　胎

　　　　　　　 水土　　　　木





較合宜，再者要貼過去的卦，時間如何訂定．

不敬之處請見諒!

同意您的看法, 我寫這程式時剛學六爻, 看到書上怎麼寫, 就跟著依樣畫葫蘆, 日辰的排法是應依兄台所言才對, 有未盡理想之處,會找個時間把程式修正一下...



有興趣要程式的, 就請寫個信給我, 並留下伊媚兒帳號...

WILLIAM兄，高人海量，不才之見，讓您見笑!

程式自動抓電腦內部時鐘的時間, 不必自行輸入....

如果要貼過去的卦，時間如何訂定呢

WILLIAM兄高雅，願乞大作拜讀

giveme93@yahoo.com.tw

嘩!1936 到2031年 !

怪不你要花那麼長時間來弄了。

有四種輸入方法:

1. 以電腦內部時鐘自動取時間

2. 自行輸入任意時間

3. 自行輸入年月日時的干支

4. 前述第一二兩項需存入檔名, 爾後隨時可以使用檔名叫出六爻卦.



基本上這四種輸入法, 已經足以應付各種狀況, 用來學六爻卦, 方便得很



今天沒法傳給你, 檔案較大, 家裡沒裝寬頻, 要到公司才能傳...

在下先謝謝william兄，不敬之處，望勿見怪

感謝willian兄，弟已收到您的程式，謝謝

謝謝 小凱哥的提供

西曆轉農曆！不是還有潤月？潤幾月的問題？
而且每年地球繞太陽的時間長短不一樣！

大大 可否有範例 可以寄一份給我嗎？
有辦法輸入農曆年 換算 歲次年 例如：甲子