公曆轉農曆公式?

General 更新 2024年04月24日

農曆轉換成公曆的計算公式？

因為公曆（現在用的是格里曆，以前還曾用儒列歷）和中國農曆都不是嚴格按一個公式計算得到的，所以兩個曆法沒有直接的公式。

試圖用一個簡單的公式，而不利用許多像萬年曆一樣的資料（儘管可以簡化），就達到公農曆轉換的目的，這是不可能的。我們能見到的所有公農曆轉換的軟體，都存有多少不等的一些年份的歷法資料。

這些資料之中，最重要的是農曆的每月天數。因為農曆是陰陽曆，陰曆部分（按月相編的部分）決定月日，陽曆部分（按太陽高度編的部分）就是節氣。節氣基本上是與公曆直接對應的，可以較容易的推算；但月相週期與地球公轉的關係相對複雜，一般都需要天文觀測資料授時，所以農曆每月是大月還是小月沒有簡單的公式。

贊助廣告

至於公曆和農曆的置閏，倒都有一定的方式推算，並不困難。

如果只是天文資料，其實都還是可以算的——因為天文週期十分穩定，我們只要嚴格地按天文週期推算就可以了。可是還有更為麻煩的一點，就是公曆和農曆這些曆法，並不是完全嚴格地按照天文上的實際週期進行的，還有許多人為的因素。最著名的就是羅馬皇帝幾次修改2、8等月份長短，以及儒列歷中因計算不準確而人為地去掉了十天等事。中國農曆也有因為古代天文觀測不準確造成的政府頒佈的歷法與天象不吻合的（我們不能苛求古人觀測的精度）。所以這兩部曆法都是與一個時期社會有關的東西，也就沒有一定的規律可循了。

贊助廣告

公曆農曆轉換

回曆、公曆、農曆的換算

（128 × 365＋31）日÷ 128年＝ 365．2421875日/年

可見共置閏精度遠高於現代的公曆。

2．換算中一日誤差之訂正

《曆法叢談》以回曆1387年為例，求算合公曆之年月日。

解1：1387 × 0．970224＋621．5774＝1967．278088年

0．278088年 × 365．2422日＝101．569日公曆累計日數為101．57日可視為4月11日或4月12日。究竟是哪一日，當依兩歷在公曆4月11日或12日間所具有同一的星期序數以訂正。

依回曆歲首星期序數計算公式：

[（138－1）×131＋164] ÷30＝6057，餘20

6057÷7＝865，餘 2

故回曆1387年元旦為星期2。（表）

按公曆自1583年元旦（星期六）至1967年4月11日，共歷：

1967－1583＝384年，在這384年中依格列高利曆四年一閏，百年不閏，四百年加一閏日的規則共歷93個閏日，又1967年元旦後一日起至4月11日又需加 100日，則

（384 × 365＋93＋100＋6）÷ 7＝140359＋7＝2001，餘 2餘2即星期2，故回曆1387年元旦在公曆1967年4月11日。

因公曆計算星期日數採用資料較多，計算時難免有所遺漏，現引人公曆日期與星期推算表阿），供參考。

應用此表查詢公元1967年4月11日星期序數步驟如下：

先在本表年份表前二位數字欄目中，查到19二字所在的位置；

再在年份表後二位數字欄目中查到67二字所在位置，自19二字處平行右移，67二字處垂直下移，二者在英文大寫字母欄目中相交於字母G處；

再自月份表欄目中查到4月，自4月所在位置平行左移，查到G在4月欄目所在位置；

自日期欄目查到11日所在位置，自此位置平行右移，使與4月份欄目G在星期表相交處知為星期二，結果與回曆計算所得相同。故知回曆 1387年元旦確為公曆1967年4月11日，而不是12日。

在換算中所得公曆日數常多於31日，甚至常在200—300日或更多，需要將此數化為該年的月日時，可用下列兩表。

表3 公曆月份及其累計日數

三公曆換算為回曆

將回歷換算為公曆的算式移項，整理，即可得到公曆換算為國曆的算式

（公曆紀年一621．5691）÷0．9702＝回曆年月日（儒略曆）……………………………………………（5）

（公曆紀年一621．5774）÷0．970224＝回曆年月日（格氏歷）…………………………………………（6）

無論回曆換算為公曆或相反，大體都有一日之差，以星期序數訂正時，回曆換算為公曆，以回曆的星期序數為準；相反，以公曆的星期序數為準。

四國曆或公曆換算為中國農曆

1．回曆換算為農曆

僅管中國農曆各年在年內月數日數都不是一個相對的穩定值，給回曆與公曆換算為農曆上帶來較多的困難，但仍然可以換算。中國農曆為陰陽合曆，在月份上與回曆同屬太陰曆，惟回曆每月以見新月為一月之始，其日約遲於農歷合朔（初一日）1—2日乃至3日，因此只要查清二者在月份上關係，便可將回歷換算為中國農曆。馬以愚先生稱：“......餘下全文>>

求農曆與公曆的轉換公式！！！

再說你要轉換也不用在excel裡面用啊。 word有個日曆模板，可以同時出現陽曆和陰曆 EXCEL本身沒有這個功能，但是通過VBA可以轉，但是也很麻煩，其實生日

excel如何農曆轉換陽曆公式

比如今天是2010年9月2日，用以下公式就可以得出農曆七月二十四：

雖然在遇到閏月時，顯示結果有點差強人意，如下圖中，2010年2月9日的農曆應是十二月二十六，但因為那年有個閏五月，就無辜多出來一個月了。不過總比編程式碼要快捷多了吧，而且閏月也不是天天有。

假如把公式改成：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"[$-130000]e")-4,10)+1,1)&MID("子醜寅卯辰巳午未申酉戌亥",MOD(TEXT(A2,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A2,"[$-130000][DBNum1]m月")&TEXT(A2,IF(--TEXT(A2,"[$-130000]d")=10,"初十",IF(--TEXT(A2,"[$-130000]d")>10,"[$-130000][DBNum1]d","初[$-130000][DBNum1]d")))，那就更像農曆表示法了，不過因為農曆每年開始日期都不一樣，所以函式很難達到十分精確的結果，只能是將就著用。

Excel裡面農曆轉公曆的函式公式應該是怎麼樣的呢

單元格輸入公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成公曆轉農曆。

能幫到你的話希望能採納一下，謝謝

在EXCEL中怎樣把公曆轉換成農曆

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

Private Sub Form_Load()

'獲取當前系統時間

curTime = Now()

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名稱

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) = &q......餘下全文>>

跪求農曆編寫規則或者農曆公曆轉換公式！

#include

unsigned int LunarCalendarDay;

unsigned int LunarCalendarTable[199] =

{

0x04AE53,0x0A5748,0x5526BD,0x0D2650,0x0D9544,0x46AAB9,0x056A4D,0x09AD42,0x24AEB6,0x04AE4A,/*1901-1910*/

0x6A4DBE,0x0A4D52,0x0D2546,0x5D52BA,0x0B544E,0x0D6A43,0x296D37,0x095B4B,0x749BC1,0x049754,/*1911-1920*/

0x0A4B48,0x5B25BC,0x06A550,0x06D445,0x4ADAB8,0x02B64D,0x095742,0x2497B7,0x04974A,0x664B3E,/*1921-1930*/

0x0D4A51,0x0EA546,0x56D4BA,0x05AD4E,0x02B644,0x393738,0x092E4B,0x7C96BF,0x0C9553,0x0D4A48,/*1931-1940*/

0x6DA53B,0x0B554F,0x056A45,0x4AADB9,0x025D4D,0x092D42,0x2C95B6,0x0A954A,0x7B4ABD,0x06CA51,/*1941-1950*/

0x0B5546,0x555ABB,0x04DA4E,0x0A5B43,0x352BB8,0x052B4C,0x8A953F,0x0E9552,0x06AA48,0x6AD53C,/*1951-1960*/

0x0AB54F,0x04B645,0x4A5739,0x0A574D,0x052642,0x3E9335,0x0D9549,0x75AABE,0x056A51,0x096D46,/*1961-1970*/

0x54AEBB,0x04AD4F,0x0A4D43,0x4D26B7,0x0D254B,0x8D52BF,0x0B5452,0x0B6A47,0x696D3C,0x095B50,/*1971-1980*/

0x049B45,0x4A4BB9,0x0A4B4D,0xAB25C2,0x06A554,0x06D449,0x6ADA3D,0x0AB651,0x093746,0x5497BB,/*1981-1990*/

0x04974F,0x064B44,0x36A537,0x0EA54A,0x86B2BF,0x05AC53,0x0AB647,0x5936BC,0x092E50,0x0C9645,/*1991-2000*/

0x4D4AB8,0x0D4A4C,0x0DA541,0x25AAB6,0x056A49,0x7AADBD,0x025D52,0x092D47,0x5C95BA,0x0A954E,/*2001-2010*/

0x0B4A43,0x4B5537,0x0AD54A,0x955ABF,......餘下全文>>

Excel 急，求助公曆轉農曆公式

適用於2007版以上

A2輸入西曆日期

B2="農曆"&TEXT(A2,"[$-130000]m月"&IF(--TEXT(A2,"[$-130000]d")<11,"初","")&"d")

C2="農曆"&TEXT(A2,"[$-130000]m月"&IF(LEN(TEXT(A2,"[$-130000]d"))=1,"初","")&"d")

D2="農曆"&TEXT(A2,"[$-130000]m月d日")

E2=TEXT(A2,"[$-130000]e年農曆m月"&IF(LEN(TEXT(A2,"[$-130000]d"))=1,"初","")&"d")

F2=TEXT(A2,"[$-130000]yyyy年農曆m月"&IF(LEN(TEXT(A2,"[$-130000]d"))=1,"初","")&"d")

上面5個公式顯現結果略有不同，請自行測試選擇喜歡的格式

或A5自訂格式為----[$-130000]"農曆"m"月"d"日"(或其他格式自行參考設定)