公历转农历，公历转农历生日查询器

本篇文章给大家谈谈公历转农历，以及公历转农历生日查询器对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。

新历和农历的转换

阳历换算成阴历的方法如下：

比如说，想要知道1993年3月14日是农历的几月几日，就可以利用公式来计算，得出公历农历转换的结果：

设：公元年数-1977（或者1901）＝4Q＋R。

则：阴历日期＝14Q＋10.6（R＋1）＋年内日期序数-29.5N（注意：Q、R、N均为自然数，且R＜4）。

因此，由此得出：1993年3月14日的阴历日期是：

1993-1977＝16＝4×4＋0。

故：Q＝4，R＝0，则：可以得出公历农历转换的结果，3月14日的阴历日期就是：

14×4＋10.6（0＋1）＋（31＋28＋13）-29.5N。

56＋10.6＋72-29.5N。

N＝4.69830508，因此3月14日的阴历日期就是阴历二月廿二。

阴历阳历转换区分

阳历也就是公历，它是国际通用的。阳历以地球绕太阳转一圈的时间定做一年，共365天5小时48分46秒。平年只计365天这个整数，不计尾数；一年分做12个月，大月31天，小月30天，二月只有28天。

四年的尾数积累起来共1天光景，加在第四年的二月里，这一年叫做闰年。所以闰年的二月有29天。阴历以月亮圆缺一次的时间定做一个月，共29天半。为了算起来方便，大月定做30天，小月29天，一年12个月中，大小月大体上交替排列。阴历一年只有354天左右，也没有平年闰年的差别。

阴历不考虑地球绕太阳的运行，因此使得四季的变化在阴历上就没有固定的时间，它不能反映季节，这是一个很大的缺点。为了克服这个缺点，后来人们定了一个折衷的历，就是所谓阴阳合历。现在我国还在使用的夏历（也有人叫它农历或阴历），就是这种阴阳合历。

它跟阴历一样，也以月亮圆缺一次的时间定做一个月，也是大月30天，小月29天，可是它又用加闰月的办法，使得平均每年的天数跟阳历全年的天数相接近，来调整四季。夏历约每过二、三年多一个闰月。

“阴历”又名“太阴历”，系以月球绕行地球一周为一月，再配合地球绕日一周之时数为一年，实际上等于阴阳合历，我国在民国元年前采用此历，为与现行之历相对称，故名之曰“旧历”。一般人以为阴历适合于农家，而名之日“农历”。

农历和公历如何换算

公历年换算成农历年

农历年由天干地支两个序列组成，我们姑且称天干为A序列，地支为B序列。A：甲1乙2丙3丁4戊5己6庚7辛8壬9癸10（0）B：子1丑2寅3卯4辰5巳6午7未8申9酉10戌11亥12（0）

A系列由公历年份+7的个位数求得，B系列由年份+57÷12的余数求得。

例一，求1911年农历：1911+7=1918，由8求得A系列为辛；1911+57=1968，1968÷12=164…0，由0求得B系列为亥，1911年为农历辛亥年。

例二，求0001年农历：

1+7=8，1+57=58，58÷12=4…10，0001年为农历辛酉年。

如果是公元前的年份，由于没有公元0年，直接计算比较困难，方法是公元前年份+1，再加上60的整倍数，转换成公元后年份，再行计算。

例一，求公元前一年农历：

-1+1+60=60，结论是庚申年。

例二，求-1911年农历：

-1911+1+32×60=10，结论公元前1911年为农历庚午年。

excel怎么把农历转化为公历

Excel将农历转换为公历的方法如下：

方法一：使用TEXT函数

1.假设A列是农历日期，A1是农历日期，我们在B1单元格输入公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"d")，下拉完成农历转公历。

2.此公式将农历日期转换为公历日期，如果日期是初几，会在前面加上“初”字。

方法二：使用TEXT+MID函数实现更完整的转换

1. A列仍然是农历，B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A1,"[$-130000]e")-4,12)+1,1)&"年"&TEXT(A1,"[$-130000][DBNum1]m月"&IF(--TEXT(A1,"[$-130000]d")<11,"初","")&TEXT(A1,"[$-130000]d")))，下拉完成公历转农历。

2.这个公式不仅转换了日期，还添加了天干地支和生肖。

方法三：使用TEXT+MID+ CHOOSE+ YEAR函数

1. A1为农历，B1输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛","壬","癸","甲","乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯"空燃姿,"辰","巳","午","未","申","酉","戌","亥")&TEXT(A1,"[dbnum1][$-130000]年m月"&IF(--TEXT(A1,"[$-130000]d")<11,"初","")&TEXT(A1,"[$-130000]d")))。

2.这个公式简化了输入，让公历转农历更加方便。

方法四：使用自定义函数

1.下图所示，我们在B2输入公式段誉：=nongli(A1)，即可。

2. C列农历简称中C1公式是：=RIGHT(B1,LEN(B1)-8)。

3.下面是此自定义函数相关的代码：Public Function NongLi(Optional XX_DATE As Date)Dim MonthAdd(11), NongliData(99), TianGan(9), *****(11), ShuXiang(11), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDayDim GongliStr, NongliStr, NongliDayStrDim 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)="癸"'地支名称*****(0)="子"*****(1)="丑"*****(2)="寅"*****(3)="卯"*****(4)="辰"*****(5)="巳"*****(6)="午"*****(7)="未"*****(8)="申"*****(9)="酉"*****(10)="戌"*****(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)="初六"DayName(7)="初七"DayName(8)="初八"DayName(9)="初九"DayName(10)="初十"DayName(11)="十一"DayName(12)="十二"DayName(13)="十三"DayName(14)="十四"DayName(15)="十五"DayName(16)="十六"DayName(17)="十七"DayName(18)="十八"DayName(19)="十九"DayName(20)="二十"DayName(21)="廿一"DayName(22)="廿二"DayName(23)="廿三"DayName(24)="廿四"DayName(25)="廿五"DayName(26)="廿六"DayName(27)="廿七"DayName(28)="廿八"DayName(29)="廿九"DayName(30)="三十"'农历月份名MonName(0)="*"MonName(1)="正"MonName(2)="二"MonName(3)="三"MonName(4)="四"MonName(5)="五"MonName(6)="六"MonName(7)="七"MonName(8)="八"MonName(9)="九"MonName(10)="十"MonName(11)="十一"MonName(12)="腊"'公历每月前面的天数MonthAdd(0)= 0MonthAdd(1)= 31MonthAdd(2)= 59MonthAdd(3)= 90MonthAdd(4)= 120MonthAdd(5)= 151MonthAdd(6)= 181MonthAdd(7)= 212MonthAdd(8)= 243MonthAdd(9)= 273MonthAdd(10)= 304MonthAdd(11)= 334'农历数据NongliData(0)= 2635NongliData(1)= 333387NongliData(2)= 1701NongliData(3)= 1748NongliData(4)= 267701NongliData(5)= 694NongliData(6)= 2391NongliData(7)= 133423NongliData(8)= 1175NongliData(9)= 396438NongliData(10)= 3402NongliData(11)= 3749NongliData(12)= 331177NongliData(13)= 1453NongliData(14)= 694NongliData(15)= 201326NongliData(16)= 2350NongliData(17)= 465197NongliData(18)= 3221NongliData(19)= 3402NongliData(20)= 400202NongliData(21)= 2901NongliData(22)= 13