要如何以西曆日求出該年農曆節氣為西曆幾月幾日呢?
以下使用概估法求值,這是一個很偷懶的方法,誤差在幾小時內,
但個人認為用來以日為單位換算日月柱資料應該是可以容忍的
誤差範圍,不然每隔19年多作校正一次誤差也可縮短誤判的機率
以下使用 Visual Basic 來說明計算方式,寫成模組呼叫
範例:求 2002 年 春分 為幾月幾日?
使用時如以下方式 ,答案會輸出到Theday ( 2002/3/21 am01:15:37 )
正確時間是 2002/3/21 am03:07 相差 2 小時
Dim Theday as Date
Theday = sTermInfo(2002,4)
msgbox(Theday)
======================================================
模組如下
Public sTermInfo(24) As Long
Public Function sTerm(ByVal Year As Integer, ByVal Term As Integer) As Date
Dim offSec As Double
Dim offDate As Double
sTermInfo(1) = 0 '立春
sTermInfo(2) = 1282183 '雨水
sTermInfo(3) = 2572220 '驚蜇
sTermInfo(4) = 3872850 '春分
sTermInfo(5) = 5184070 '清明
sTermInfo(6) = 6507336 '榖雨
sTermInfo(7) = 7841021 '立夏
sTermInfo(8) = 9185126 '小滿
sTermInfo(9) = 10536446 '芒種
sTermInfo(10) = 11893696 '夏至
sTermInfo(11) = 13252719 '小暑
sTermInfo(12) = 14611477 '大暑
sTermInfo(13) = 15965944 '立秋
sTermInfo(14) = 17314099 '處暑
sTermInfo(15) = 18653107 '白露
sTermInfo(16) = 19981720 '秋分
sTermInfo(17) = 21298898 '寒露
sTermInfo(18) = 22604625 '霜降
sTermInfo(19) = 23899693 '立冬
sTermInfo(20) = 25185380 '小雪
sTermInfo(21) = 26463860 '大雪
sTermInfo(22) = 27737403 '冬至
sTermInfo(23) = 29008912 '小寒
sTermInfo(24) = 30281096 '大寒
offSec = ((31556925.9747 * (Year - 1900)) + sTermInfo(Term))
'一年長度之 31556925.9747 分之一為一秒
offHour = offSec / 3600 '秒化時
sTerm = DateAdd("h", offHour, #2/4/1900 1:51:37 PM#)
End Function
_________________________
玄空風水數位門 玄空風水數位門是新時代應運之新風水學派,秉承三元派風水之精義,
另創特色之數位學理架構詮釋天地人三才風水系統架構,
數即一切之理,位即一切之時間與空間.數位亦是陰陽生化萬法由此生生造化.
陰陽協調三才互動,實踐人間淨土工程.
風水職業班新台幣50萬元整(港幣或人民幣10萬元整)
三元風水秘訣面授點訣(限有基礎者)
教學與進一步詳論者,潤金收費,請聯絡Mail下址
victor.chung@msa.hinet.net
拙著:六爻易斷精要講義下載 中醫藥保健資訊網 易經六十四卦占卜大衍版_打包新安裝(繁體中文版)
AI算命大師
前一個議題
索引
提供節氣 XML 資料
