出生陰陽曆轉換查詢?

General 更新 2024年11月26日

在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沒有公曆轉換農曆的函式，但有建了一個巨集，可以實現轉換。看附件。

怎麼把陽曆生日轉化為陰曆生日？