出生陰陽曆轉換查詢?
在EXCEl中陰陽曆生日轉換及提醒
一個陽曆轉陰曆的自定義函式:
Public Function NongLi(Optional XX_DATE As Date)
Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
Dim curTime, curYear, curMonth, curDay
Dim GongliStr, NongliStr, NongliDayStr
Dim i, m, n, k, isEnd, bit, TheDate
'獲取當前系統時間
curTime = XX_DATE
'天干名稱
TianGan(0) = "甲"
TianGan(1) = "乙"
TianGan(2) = "丙"
TianGan(3) = "丁"
TianGan(4) = "戊"
TianGan(5) = "己"
TianGan(6) = "庚"
TianGan(7) = "辛"
TianGan(8) = "壬"
TianGan(9) = "癸"
'地支名稱
DiZhi(0) = "子"
DiZhi(1) = "醜"
DiZhi(2) = "寅"
DiZhi(3) = "卯"
DiZhi(4) = "辰"
DiZhi(5) = "巳"
DiZhi(6) = "午"
DiZhi(7) = "未"
DiZhi(8) = "申"
DiZhi(9) = "酉"
DiZhi(10) = "戌"
DiZhi(11) = "亥"
'屬相名稱
ShuXiang(0) = "鼠"
ShuXiang(1) = "牛"
ShuXiang(2) = "虎"
ShuXiang(3) = "兔"
ShuXiang(4) = "龍"
ShuXiang(5) = "蛇"
ShuXiang(6) = "馬"
ShuXiang(7) = "羊"
ShuXiang(8) = "猴"
ShuXiang(9) = "雞"
ShuXiang(10) = "狗"
ShuXiang(11) = "豬"
'農曆日期名
DayName(0) = "*"
DayName(1) = "初一"
DayName(2) = "初二"
DayName(3) = "初三"
DayName(4) = "初四"
DayName(5) = "初五"
DayName(6) = "初六&q......餘下全文>>
陰陽曆轉化公式
關於陰陽曆嘛。
首先,我們知道地球公轉週期為365.2422天,月球公轉週期為29.53天。而陰陽曆的本質就是要把這兩個週期統一起來。
那麼,我們會發現,19個地球地球公轉週期和235個月球公轉週期的差非常接近。因此,19個公曆年和235個農曆月天數就重合了。所以在設計程式時候,採用19年為一個週期迴圈比較合理。
望採納,謝謝。
陰陽曆如何轉換
農曆和陽曆沒有固定的對應關係,最多相差會場到30天左右。
有一個19年的近似重複週期,但仍有最多一兩天的差別。
由於地球和月球的公轉軌道都不是正圓而是橢圓,再加上春分點的逐年西移和迴歸年、朔望月都不是整天數等原因,致使農曆日期的推算變得十分複雜,只能由專門機構的專業人員逐日進行推算並編制萬年曆供公眾查詢,一般人員只能依靠現行的萬年曆進行查對了。
excel中如何將出生日期的公曆年份轉為農曆年份
excel沒有公曆轉換農曆的函式,但有建了一個巨集,可以實現轉換。看附件。
怎麼把陽曆生日轉化為陰曆生日?
隨便哪種萬年曆都有陰陽曆轉化的功能。你把年、月、日報一下,我能幫你。
1994年11月14農曆出生的,轉換公曆生日是12月16號,那為啥到了2014年不是12月16了
這是因為農曆記法是才有19年7潤。陰曆、陽曆、陰陽合曆一般情況下是十九年重複一次。不過也有個別人例外,會相差一天左右。